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In an industry that evolves practically over- 
night, it’s tough to stay ahead of the crowd. 

You need tools that not only give you an 
edge day-to-day, but open up endless possibilities. 

Tools that can only come from Microsoft. 

Combine Microsoft® C and Macro Assem- 

bler and you’ve got enough power to create pro- 
~ grams for MS ‘DOS: Windows and OS/2 systems. 

What’s more, you can do it all in record time 
because our renowned CodeView” Debugger, 
Linker, Microsoft Editor, and MAKE utility work 
ingeniously and seamlessly al 
together. B MicrosoliC 51 

In other words, you've | 
got the leverage of the most | 
inventive and comprehensive | 
tools around. 

When you develop un- | 
der OS/2 systems, you've got “ 
options no one else can touch. — 
Like multi-tasking.Andblast- | E 
ing through the 640K barrier. § 

In addition, Microsoft jams 
Cand Macro Assembler can i 
accommodate more third § 
party add-ons than any other | 
PC professional languages. 

Maybe that’s why the 
most popular applications on the market today 
— were developed through the unique power of our 

— Cand Assembler: Lotus’ 1-2-3? WordPertfect* 5.0. 
cc ee = Microsoft Excel. And Aldus’ PageMaker.” 
- ee — So drop by your nearest Microsoft dealer 
ea el © soon. And start turning out the most airtight, fine- 
eo = tunedcode ever to touch a disk. 
oT . After all, you've got the leverage. 





Microsofi Macro Assembler Sl 





Making it all make sense: 





Customers in the U.S., call (800) 426-9400. In Canada, call (416) 673-7638. Outside North America, call (206) 
882-8661. © Copyright 1989 Microsoft Corporation. All rights reserved. Microsoft, MS-DOS and the Microsoft 
logo are registered trademarks and Making it all make sense is a trademark of Microsoft Corporation. 


















Now, 
Supports 
Turbo 
Pascal 5.5! 









Turbocharge your 
programming effort 
with Blaise Computing’s 
new libraries for Turbo 
Pascal 3.0 and Turbo C'2.0! 


We've added powerful new routines and up- (ii 
graded old ones. Mouse support, virtual windows, % 
pull-down menus, context-sensitive help, and %] 
much more. We keep you charging down the fast 
lane creating powerful programs with the new 
Turbo compilers. 


Blaise tools are complete! 

Blaise Computing function libraries offer easy to 
use solutions to your programming needs. You get 
all source code, complete sample programs, and a 
comprehensive reference manual with extensive 
examples, plus... 


FREE Norton Instant Access Program! 

You get the Norton Guides Instant Access Program with an on- 
line reference database for your Blaise tool of choice. Reduce 
manual labor by instantly popping up function calling sequences 
and descriptions. 

We also provide free technical support during business hours, 
and a free dial-up bulletin board system dedicated to technical 
issues. 


Unleash your programming potential! 

Make your Borland Professional programming environment 
complete with the most powerful and easy-to-use function 
libraries available. Call now to order or to ask for a free brochure 
on our full line of products for C and Pascal. 


Put Blaise tools to the test! 
If at any time during the first 30 days you are not completely 
satisfied we'll refund your money. 


y iN 
| Ae 
BLAISE COMPUTING INC. 


2560 Ninth Street, Suite 316 Berkeley, CA 94710 (415) 540-5441 





lessenactetmiontahipenslnomiinai cee oot 
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Turbo C and Turbo Pascal are trademarks of Borland International. 
The Norton Guides is a trademark of Peter N vton Computing, Inc. 


ver | stolen 333-8087 today 














PNP eI] 








POWER TOOLS PLUS/5.0 


—completely integrated and lightning-fast 
routines to help you: 


@ Add moving bar pull-down menus and windows to 
your user interfaces; NEW! Generate context 
sensitive help screens; NEW! @ Add easy-to-use date 
and time conversion routines; NEW! @ Let users 
choose from window oriented pick lists; VEW! Create and 
access “huge” data structures; NEW! @ Use multiple 
line edit fields with fully configurable edit keys; 
NEW! @ Speed up your sorting with flexible in-memory 
sort routines; VEW! @ Add EMS support; NEW! 
® Write TSRs and ISRs easily; ® Control DOS memory 
allocation; ® Create powerful programs in 
Turbo Pascal 4.0 & 5.0! 


TURBO C TOOLS/2.0 


—tight, fast, high quality functions to help 
you: 
@ Add easy-to-use mouse support for windows 
and menus; NE'W! Quickly include virtual windows and 
menus; NEW! @ Integrate your windows and menus 
with Turbo C’s text windows; NEW! @ Create context 
sensitive help screens; NEW! Provide multiple 
line edit fields with fully configurable edit keys; NEW! 
@ Use keyboard and video services (including 
enhanced keyboard and VGA); VEW! Write TSRs and 
ISRs easily; ® Create powerful programs in 
Turbo C 1.0, 1.5 and 2.0! 





























Price per package is $149! 
FAX: 415-540-1938 
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FEATURES 


SMALLTALK + C: THE POWER OF TWO «16 
by Dave Thomas and Randolph Best 

Using Smalltalk to represent and manipulate high-level information and C to implement 

critical, low-level facilities can add power to your programs. 


MAKING THE C-TO-FORTRAN CONNECTION 22 
by Michael A. Floyd 

Making the C-to-Fortran connection lets you use the wealth of C tools to take advantage of 
Fortran libraries. 


TRANSLATING PCX FILES 30 
by Kent Quirk 
Kent shows how he outputs PCX image files to PostScript printers, using C as a conversion medium. 


BUILDING YOUR OWN C INTERPRETER 38 
by Herbert Schildt 

Roll your own C interpreter using the code and techniques Herb presents here. 

C MULTIDIMENSIONAL ARRAYS AT RUN TIME 50 
by Paul Anderson 


Using C functions to create two- and three-dimensional arrays at run time helps you organize 
the heap and write more powerful programs. 


C DYNAMIC MEMORY USE 62 
by Randall Merilatt 

Randy shares some proven techniques to help you detect, identify, and cope with C dynamic 
memory problems. 


C PROCEDURE TABLES 68 
by Tim Berens 
Procedure tables let you store functions and subroutines in a table for tighter program control. 


GOING FROM K&R TO ANSI C }4 
by Scott Robert Ladd 

ANSI C picked up where K&R left off, and knowing where the differences are can affect 

your programming practices. 


A GENERIC HEAPSORT ALGORITHM IN C 8] 
by Stephen Russell 

The non-recursive Heapsort algorithm may be just the sorting tool you need, no matter 

what language you're programming in. 


EXAMINING ROOM 


Coordinated by Michael A. Floyd 89 
In this month’s Examining Room Scott Ladd sums up his Turbo C and QuickC face-off, Tom 

Castle looks at Genus’ C Tools and PCX Programmer's Toolkit, and Professor T.A. Elkins 

examines VEdit Plus from CompuView. 


COLUMNS 


PROGRAMMING PARADIGMS 134 
by Michael Swaine 


Michael asks the question, “Why neural nets?” and gets into some background on 
backpropagation. 

C PROGRAMMING 14] 
by Al Stevens 

It had to happen sooner or later: Al takes a serious look at C++ after reexamining how he’s 
abused typedef. 


GRAPHICS PROGRAMMING 146 
by Kent Porter 

A drive along the twisty roads of Big Sur gets Kent to thinking about curves — and ways 
programmers can handle them. 


STRUCTURED PROGRAMMING 154 
by Jeff Duntemann 

Jeff looks into the Legend of Smalltalk and finds out that it’s really an ordinary language — 

within a remarkable framework. 
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NEXT ISSUE 


In September we'll provide some stimulat- 
ing simulating techniques written in C, Small- 
talk, and C++. We'll also discuss procedure 
trees, 80386 protected mode programming, 
and show you how to use assembly lan- 
guage to roll your own mini-language. 





Sometimes It res. 


To Re-Invent 
The Wheel | 


Essential C-Utility 
Library: 
Redesigned For 
Today’s C- 
Programming Environment 


The Good Old Days 


In the “old” days before we first 
introduced the C-Utility Library, about 
the only thing compiler manufacturers 
provided was a way to turn C code into 
machine language. 


You wrote C programs and developed 
your own “tool-box” of functions. After 
all, that was the idea of C. 


But soon groups of programmers were 
sitting around over a few beers or wine 
coolers (depending on which coast you 
were closest to) “what iffing” or “gee 
whizzing” (depending on which coast 
you were closest to). 


“Gee Whiz, I’m getting tired of writing 
functions and sub-routines for all this 
standard stuff. It’s like re-inventing the 
wheel every day. ‘What if’ I could buy a 


set of toois and just plug them in.” And so, 


the C-tool industry was born. 


The Trickle-Up Theory 


For a time symbiosis was the order of 
the day. Compilers compiled, libraries 
were “added-on.”’ 


But after a while compiler manufactur- 
ers (who tend to hang around one coast) 
sensed a new heat in the competition. In 
an effort to gain market share they 
started to add libraries to their products. 


In response to this move by the 
compiler developers we have redesigned 
Essential C-Utility Library to reflect the 
new age of C programming. 


Out With The Old, In With 
The New 
We have eliminated functions provided 

with most compilers, except where ours 
are demonstrably better. We enhanced 
areas that became more popular as time 
moved on. And finally, we added a new 
class of tools: the ““HyperFunctions.” 


We have kept in many of the work- 
horses of the original C-Utility library 
covering general areas such as: 
Advanced DOS, Keyboard Handling, 
Screen Functions, Mouse Functions, 


Printer Functions, Plus Hundreds More. 
C Utility Library is a Trade Mark of 
South Mountain Software Inc. 





C Programmers 







HyperFunctions: Not Hype 


The definition of the basic function has 
changed since we first started develop- 
ing libraries. Today a program without 
pull down menus, dialog boxes, etc. is 
considered old-fashioned. So we have 
designed what we call HyperFunctions. 


HyperFunctions are really complete 
sub-systems designed to add state-of-the- 
art capabilities to your programs. 


One of these is a complete mouse/ 
cursor driven pull-down menu system. 
This system is similar to those found in 
the Turbo or Quick C interface. 


Another is a very complete file- 
handling sub-system. It includes file-find, 
date-driven copies, wildcards, full sub- 
directory handling, group copy and 
delete, and more. 

Some other HyperFunctions include: 

m 43 line EGA text g Dialogue boxes 


gw A window editor for ASCII files 
m Buffer screen I/O builds pages in 
memory 


m Selective back-up utilities 
m EMS 4.0 support 


Coast To Coast Commitment 
Whichever coast you live near give us 
a call. We will be glad to discuss your 
particular situation and needs. 
Just like in the old days, we do not 


charge any royalties or run time fees. We 
think your efforts belong to you. 


If for any reason you are unsatisfied 
with our product you may return it 
within 30 days for a full refund. Full 
source is included. Price w/source $199 


1-800-451-6174 





SOFTWARE 


Formerly Essential Software Inc. 


South Mountain Software Inc. 


South Orange Plaza 
76 S. Orange Ave., Suite 3 
South Orange, N.J., 07079 


N.J. 201-762-6965 Fax. 201-762-0118 
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C Network Compiler. 
C Network Compiler Run. 
C Network Compiler Run 386. 


Introducing 
C Network 
Compiler/386. 
Introducing 
another first from 
Novell—the first net- 
work compiler for 
developing distribut- 
ed applications. 1... yo ee 
C Network . : ee , i ia co ee ae 3 
Compiler/386 a a bien Cee an ae 
gives you the fast- cS | 
est, most stream- 
lined code you've 
ever seen, running 
on NetWare’ 386, 
the fastest, most ae gO i 
efficient network operating sys- _ on the latest technology from network application users. 
tem we've ever developed. WATCOM Systems Inc., and are Call us and see how fast our 
C Network Compiler/386 is optimized for use with NetWare. C Network Compilers can make 
a complete and integrated set of Besides the powerful ANSI your applications run. And start 
NetWare 386 programming tools C compiler, enhanced debug- writing applications today that 
that generates 32-bit, native- ger, linker, and other utilities, will satisfy the network comput- 
mode 386 code. Now you can with our network compilers you ing needs of the next decade. 
use a standard programming have the whole library of NetWare ¢ Network Compiler —US$695 
tool to conquer the complexities application programming C Network Compiler/386 —US$995 
of building server applications. interfaces, including Btrieve, at 
And for building client your command. 
applications, we offer the DOS That gives you a direct link 
version of C Network Compiler — into NetWare, the leading net- ne 
for the entire 80x86 processor — work operating system with the For netwo 
family. Both compilers are based world’s largest installed base of | YOu should be seeing red. 


Call before you write. 512-346-8380 


©1989 Novell, Inc., Novell Development Products, #917, P.O. Box 9802, Austin, Texas 78766 
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So Long, 
Good Friend 


magazine’s readers, writers, and editors. This kindred spirit is one of the things that makes 

DDJ special. But the downside of a relationship like this is that we’re all touched much 
more deeply by any loss. Such is the case with the death of Kent Porter, our senior editor who 
passed away the first week in June. His unexpected death leaves all of us — those who were 
used to seeing him every day and those of you who had grown used to hearing from him every 
month — with an empty feeling. 

Kent was a special person whose association with DD/J goes back many years — first as a 
reader, then as a contributor, and finally as a staff editor. Most recently, Kent wrote about 
graphics programming, an area that was a particular interest of his. Before that, he authored the 
“Structured Programming” column where he became known as an advocate for Modula-2, 
Pascal, and clear thinking in general. And, over the years, he wrote dozens of articles for DD] 
and just about every technical magazine in the programming field. Add his more than 20 books 
(most of them on various aspects of programming, although his first book was entitled Building 
Model Ships From Scratch) and you begin to see just how prolific and disciplined he was. To a 
great extent, Kent’s technical prowess, sense of humor, and clarity of expression embodied the 
notion of what DD/J is all about. 

Programming was just one of Kent’s many interests. He could speak six or seven languages 
(nope, not programming languages, he started learning Italian shortly before his death) and, 
believe it or not, he was an accomplished “needlepointer” who made up his own designs. As 
lucky as we were to know and work with Kent, he felt he was lucky too. He recently told former 
DDjJ editor Ron Copeland that he was doing what he had always dreamed of when he was 
growing up — writing books and magazine articles. He added that working at DD] was the 
most satisfying job he’d ever held. While that certainly makes us feel better now, it’s more 
gratifying to know that Kent was happy and satisfied with what he was doing. 

Although his column will end with this month’s issue, Kent had a couple of articles we hadn't 
gotten around to publishing, and those will see the light of day over the coming months. He’d 
also just finished updating his excellent book on Stretching Turbo Pascal, and I hope you'll be 
seeing it in the bookstores before long. 

As a lasting memorial to our friend, we’re in the process of setting up a scholarship fund in 
Kent’s name. It will be an annual award to a deserving computer science student, and I'll be 
providing more details on it in a future issue. 


() ne of DDJs more unique and endearing qualities is the affinity that exists between the 


In last month’s editorial, I mentioned that we’re providing listings via an on-line service built 
by David Betz and Bill Garrison. The response was great, with several hundred of you using 
the service to download files throughout the month and we're continuing to expand the 
available material. Again, the number is 603-882-1599. Dial it up and send us some e-mail with 
your comments. 


Those Macintosh aficionados among us, like John Kirkpatrick of Houston and Grant Schampel 
of St. Paul, have commented that it’s been a couple of months or so since we ran a Mac article. 
The reason for the dearth is that we’ve been stockpiling Mac articles for another special issue 
named Dr. Dobb’s Macintosh Journal, which is due out next month. The first thing you'll notice 
about the issue is that it is packed with code. One article, in fact, has over 1800 lines of code 
while another has about 1000 lines. The articles range from discussions of device drivers and 
memory management to object-oriented and 32-bit color programming. In the process of putting 
the special issue together, we’ve also been able to assemble a good selection of additional 
code-intensive Mac articles that we’ll be running in the regular DD/ just about every month. 


a cae 


Jonathan Erickson 
editor-in-chief 
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Aztec C for Embedded Applications 


Host: e MS-DOS’ e Macintosh 
Aztec C86-p Professional 199 Targets: ° 8086/80x86 ° 680x0 ¢ 8080/Z80/64180 ~° 65xx 


Aztec C86-d Developer 299 
Aztec C86-c Commercial 499 
Amiga 
Aztec C68k/Am-p Pro 199 
Aztec C68k/Am-d Dev 299 
Macintosh 
Aztec C 125 
Aztec C + SDB 189 
Aztec C + MPW 189 
SDB, Unitools, or MPW 125 
APPLE II 
Aztec C for DOS 199 
Aztec C for ProDOS 299 
CP/M-80 
Aztec C CP/M + ROM 349 e MS-DOS «Macintosh e¢ Amiga e¢AppleII °¢ CP/M 
Aztec C CP/M 199 
ROM Aztec C delivers a combination of reliability, power, and performance 
Host + Target 500 that is unsurpassed for the development of professional level software. 
Native System for Host 249 
OTHER Aztec C systems include C compiler, assembler, linker, librarian, source 
Call for information and editor, source debugger, and a powerful arsenal of development tools. 
pricing on third party Contents of specific systems vary. Call for details. 
software, ICE units and 
other third party hardware. 


800-221-0440 


© Outside USA: 201-542-2121 FAX: 201-542-8386 
e C.0.D, Visa, MC, Am Express, domestic & international wire 
e one and two day delivery available 


Aztec C features a full spectrum of tools and options to speed the task 
of producing tight, fast, rock solid code. 

Aztec C compilers are fast and full featured. Assembler support includes 
inline assembly, separate assembly, and modifiable output from the 
compiler. A source editor, make utility, linker, and librarian are standard. 

Most systems include ICE interfaces and some feature a source debugger. 

Development of system independent code on the host system can reduce 
development time by over 80%. 

Call or write for detailed technical specifications. 





Aztec C for Personal Computer Applications 





MANX®S 


Manx Software Systems 
Box 55, Shrewsbury NJ 07702 
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Microsoft, the industry trend 
setter at providing language 

tools for the software developer 

has done it again, with three 

new products to lead the way 
into the 90's. And Program- 
mer's Paradise, the world's 
leading source of development : 
software is ready to ship them 

to you. Call us today to order 
these and other outstanding 
Microsoft software products. 





Microsoft OS/2 Presentation Manager Toolkit 


Microsoft OS/2 


Presentation Manger lk The Microsoft OS/2 Presentation Manager Toolkit provides a complete set of visually- 


oriented software tools and documentation to help you develop the next generation 

of graphical applications for the OS/2 Presentation Manager. Presentation Manager 
provides a consistent, graphical user interface that makes applications easy to learn 
and use. The Toolkit includes the software to create and customize drop-down menus, 
dialog boxes, icons, and fonts that make this intuitive environment possible. Also 
included is a complete set of reference documentation; QuickHelp, the on-line, context 
sensitive reference; HelpMake to add to the QuickHelp database; over 3 MB of sample 
code; and 2 free hours of on-line support. 





Microsoft QuickPASCAL 


A powerful new implementation of 
Pascal that provides superior productivity 
and performance to current Pascal 
programmers, and also opens the door 
to object-oriented programming. 


And QuickPASCAL integrates a compiler, 
| : editor and debugger into one highly 
all alah productive, intuitive environment. 
Object-oriented programming is expected 
to be the major programming development 
of the 1990s. Microsoft's implementation of 
object-oriented constructs in QuickPASCAL 
will provide you with an easy, smooth 
transition into object-oriented techniques. 


The QuickPASCAL compiler and linker 
are the fastest available for Pascal on a 
PC, assuring superior performance. 





Microsoft QuickC Compiler with QuickAssembler 


Microsoft QuickC Compiler with QuickAssembler is the first product to fully integrate 
C and assembly language into one seamless environment, giving you maximum 
power and ease of use. Write and edit source code in C; accelerate speed-critical 
routines or gain low-level access to your hardware with assembly language; compile, 
assemble, run, and debug—all within the same integrated software development 
system. Comprehensive reference guides and innovative on-line learning tools make 
the two languages and the unique integrated environment easy to master. Two 
popular languages, one smooth environment-the power of C and the speed of 
assembler, together at last! Amazing! 


Microsoft. Quick. Compiler 
with QuickAssembler 





THE MICROSOFT PRODUCT LINE 





LIST OURS LIST OURS 

MS BASIC/6.0 295 199 MS Pageview 50 40 
MS C 450 299 MS Pascal 300 199 
MS COBOL 900 599 MS PowerPoint (MAC) 395 279 
MS Excel 495 279 MS QuickBASIC 99 69 
MS Excel (MAC) 395 279 MS QuickBASIC (MAC) 99 69 
MS FORTRAN 450 299 MS QuickC 99 69 
MS Learning DOS 50 40 MS QuickC with QuickAssembler 199 135 
MS Mach 20 495 329 MS QuickPASCAL 99 69 
MS Macro Assembler 150 99 MS Sort 195 130 
MS Mouse Bus or Serial MS Windows/286 99 69 
w/ Paintbrush & Mouse Menus 150 99 MS Windows/386 195 130 
w/ EasyCAD 175 119 MS Windows Software Development Kit 500 319 
w/ Paintbrush & Windows 200 139 MS Word 450 279 
MS OS/2 Presentation Manager Softset, 150 105 MS Word (MAC) 395 279 
MS OS/2 Presentation Manager Toolkit 500 329 MS Works 149 99 
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PROMPT 
SERVICE TOO! , 


~ wow! 
MY ORDER WILL 
BE SHIPPED 





WE'LL MATCH NATIONALLY ADVERTISED PRICES . 


LIST OURS 
386 DEVELOPMENT 
386 ASM/LINK 495 419 
386MAX Pie 66 
386MAX PROFESSIONAL 129 415 
386/VMM 295 | 235 
F77L-EM/32 895 735 
High C 386 895 799 
NDP FORTRAN-386 595 | 529 
Novell C Network Compiler 695 529 
ASSEMBLY LANGUAGE 
Advantage Disassembler 295 279 
AsmFlow 100. 90 
MS Macro Assembler 150 105 
OPTASM 125 385 
SOURCER w/ BIOS source 140 425 
Turbo Assembler/Debugger 150 405 
BASIC LANGUAGE 
GraphPak Professional 149 {29 
MS BASIC/6.0 295 499 
ProBas 135 925 
QuickBASIC 99 69 
QuickPak Professional 149 | 129 
QuickWindows Advanced 139 | 425 
SoftCode 79 70 
True BASIC 100 69 
Turbo Basic 100. 69 


NEW RELEASES 


CODAN 


Source code analysis tool designed for 


2 Ney: involving large masses of C 
code. CODAN analyzes and extracts 
useful information from your code, and 


places it in a database you can access via 


CODAN's query and reporting system. 
Invaluable for reviewing structure and 
code practices. 


List: $395 
M++ 


Matrix language extension to C++. The 
M++ class library uses C++ operator 
overloading to define a complete set of 


Ours: $355 


matrix operators. Ideal for science, 
engineering, and statistical applications. 
Compatible w/ all C++ compilers, 
translators. Source included. 


List: $495 Ours: CALL 


NOVELL C NETWORK COMPILER 
The Novell C Network Compiler gives 

a direct link into NetWare, the 
leading network operating system with 
the world's largest installed base of 


network application users. Includes: the 


Novell/WATCOM C network compiler, 
Express C, NetWare API Library, Btrieve 


Library, C Graphics Library, an Editor and 


the Network Applications Tutorial. 
List: $695 Ours: $529 





C COMPILERS 
Lattice C 6.0 
Microsoft C 

QuickC 

Turbo C 

Turbo C Professional 


C ++ 
Guidelines C++ 
M++ 
Zortech C++ 

w/ source 
Zortech C++ Tools 
Zortech C++ Video 


C CODE GENERATORS 
Logic Gem 
Matrix Layout 
PRO-C 
w/ Workbench 


C LIBRARIES/UTILITIES 
C Asynch Manager 

C Tools PLUS/5.0 

C Utility Library 

Essential Communications 
Greenleaf Comm. Library 
Greenleaf Functions 
Greenleaf SuperFunctions 
PC-lint 

TimeSlicer 

Turbo C TOOLS/2.0 


C SCREENS/WINDOWS 


C-Worthy w/ forms and source 
Greenleaf DataWindows 
Greenleaf MakeForm 
Panel Plus 
Vermont Views 
Vitamin C 

VCScreen 


COBOL LANGUAGE 
Micro Focus: 
COBOL /2 w/ Toolset 
COBOL)? Toolset 
Personal COBOL 
MS COBOL 
Realia COBOL 


DEBUGGERS 
386 DEBUG 
Periscope I/OK 
Periscope III 10 MHz 
Periscope IV/16 MHz 
Periscope IV/25 MHz 
Sherlock 

VM-Debug 


DOCUMENTATION 
AutoFlow-C 

Clear + (C) 

EasyFlow 

FLOW CHARTING II+ 
Source Print 

Tree Diagrammer 


LIST OURS 
250 199 
450 299 
99 69 
150 105 
250 7s 
295 269 
495 CALL 
150 29 
250 209 
100 89 
CALL CALL 
198 73 
150 . 425 
495 445 
675 569 
175 128 
149 109 
199 438 
225 138 
229 = 165 
209 435 
265 199 
139 405 
295 2/9 
149 109 
495 439 
295 219 
125 95 
495 395 
395 CALL 
225 | 165 
149 109 
1800 1499 
900 749 
149° 125 
900 599 
995 849 
195 165 
545 465 
1395 1245 
1995 1695 
2595 2205 
195 . 479 
99 80 
299 269 
149 109 
150 115 
229 +185 
97 85 
77 69 






EDITORS 
BRIEF 

w/ dBRIEF 
Epsilon 
KEDIT 
MKS VI 
Multi-Edit 
Norton Editor 
PC/EDT+ 
SLICK Editor 
SPF/PC 
VEDIT PLUS 


FILE MANAGEMENT 
Btrieve 
Btrieve/N 
CBTREE 
c-tree 
d-tree 
r-tree 
c-tree/r-tree 
dBC Ill PLUS 
db_FILE 
db_RETRIEVE 
Essential B-Tree 
w/ source 
Informix Products 


FORTRAN LANGUAGE 
F77L 

Grafmatic 

Grafmatic/Plotmatic 

Lahey Personal FORTRAN 77 
MS FORTRAN 


GRAPHICS LIBRARIES 
Essential Graphics 

GraphiC 

graphics-MENU 

GSS Graphics Devel. Toolkit 
HALO ’88 

Turbo Geometry Library 


LANGUAGE DEVELOPERS 


LALR 
MKS LEX & YACC 
PCYACC 


LINKERS 

LINK & LOCATE ++ 
OPTLINK 
Plink86plus 

.RTLink 


MODULA-2 
LOGITECH Modula-2: 
Compiler Pack 
Development System 
Solid B+ Toolbox 
TopSpeed Modula-2: 
Compiler Kit 
DOS 3-Pack 


NETWARE SUPPORT 
Btrieve/N 

NetWare C Interface for DOS 
NetWare SQL 

NetWare System Calls for DOS 
Xtrieve PLUS 


OBJECT-ORIENTED 


PROGRAMMING 
ACTOR 
Language Extension | 
C Data Manager 
C_talk 
C_talk/Views 
Smalltalk/V 
Communications 
EGA/VGA Color Extension 
Goodies #1, #2 or #3 
Smalltalk/V 286 


914-332-4548 
Customer Service: 914-332-0869 


NY/International: 


Telex: 510-601-7602 
Fax: 914-332-4021 


LIST OURS 
195 CALL 
275 CALL 
195. 139 
150 120 
149: 125 
99 90 
75 59 
295 269 
195. 159 
245 185 
185° 45 
245 185 
595 4335 
195 169 
395 309 
495 395 
295. 239 
650. 519 
500 395 
395 322 
395 322 
99 89 
198 149 
CALL CALL 
477 429 
135 149 
240 219 
95 89 
450 299 
299 229 
395 335 
195: 179 
595 | ay 
325: ge8 
150. 335 
99 90 
249 £19 
395. 359 
395 349 
125 45 
495 289 
195. 185 
99 Foe 
249 199 
150 435 
100 89 
200 475 
595 455 
295 aa 
595 455 
195 358 
595 455 
495 429 
99 95 
150. 328 
150 135 
450 379 
100 85 
50 45 
50 45 
50 45 
200 169 


Call or Write for Latest Free Catalog! 


A Division of Voyager Software Corp — 
55 South Broadway, Tarrytown, NY 10591 


CIRCLE NO. 195 ON READER SERVICE CARD 


OPERATING SYSTEMS/ 


LIST OURS 


CONTROL PROGRAMS 


Concurrent DOS 386 (3 users) 395 | 275 
DESQview 130 =109 
DESQview 386 (w/ QEMM) 190 159 
MS Windows/386 195) 130 
VM/386 245 205 
VM/386 Multi-user 895. 759 
VM/386 NetPak 150 129 
Wendin PCNX 2.5 139 109 
PASCAL LANGUAGE 

B-tree Filer 125 99 
MS Pascal 300 «6189 
Pascal ASAYNCH MANAGER 175 = 328 
POWER SCREEN 129 99 
Turbo Analyst 99 79 
TurboMAGIC 199 179 
Turbo Pascal 5.0 150 105 
Turbo Pascal 5.0 Professional 250 .475 
Turbo-Plus 5.0 150: 419 
Turbo Power Tools Plus 149. 109 
Turbo Professional 5.0 125 99 
SOURCE CODE MGMT. 

Codan 395. 355 
MKS Make 149 135 
PVCS (Corporate) 395 335 
TLIB 100 89 
UTILITIES 

Disk Technician Advanced 190 159 
FASTBACK Plus 189 125 
Heap Expander 80 75 
HELP ME 99 90 
hTest:hFormat 90 79 
MACE GOLD 149 129 
Magellan 139 CALL 
MKS Toolkit 199 169 
Norton Commander 89 59 
Norton Utilities Advanced 150 101 
PC/Tools Deluxe 80 70 
V OPT 60 54 
Vfeature Deluxe 120 109 





145 
695 
495 
895 
495 
CALL 
1095 
1950 


Aspen Korn Shell 
Basmark QuickBASIC-386 
Directory Shell-386 
EROFF (XENIX 386) 
Guidelines C++ (386) 
Informix Products 


Interactive 386/1X 
JAM (386) 
Micro Focus COBOL/2 (386) 3500 


795 
1495 
995 
995 


NDP-C or FORTRAN 

SCO 386 XENIX (complete) 
Terminal Control 
WordPerfect 


TERMS AND CONDITIONS 


We accept American Express, 
MasterCard, VISA — no 
additional charge. 

Purchase Orders welcome! 
(subject to credit approval) 
Mail/FAX orders must include 
phone #. 

30-day return policy. Call for 
details. 

We welcome DEALER and 
INTERNATIONAL orders. 
Prices subject to change 
without notice. 


CALL US IF YOU DON'T SEE THE 


PRODUCT YOU WANT--WE CARRY 


1-800-445-7809 


THOUSANDS OF TITLES! 
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More on Superlinearity — 

and More 

Dear DDjJ, 

I am writing in reference to Michael 
Swaine’s column “Programming Para- 
digms,” in the April 1989 issue of Dr. 
Dobb's Journal. | have always enjoyed 
reading Swaine’s columns and I am 
pleased to be writing to him. 

I wanted to comment on his discus- 
sion of superlinearity. I share his skep- 
ticism about the results of Rao and 
Kumar about superlinear speedups with 
parallel processing. I feel that their ex- 
ample (in fact any example) of super- 
linearity falls into Swaine’s first case, 
that is, of a better algorithm being used 
in the parallel case. 

Nine processors, each running a 
depth-first search on a part of the search 
tree, are not together doing a depth- 
first search. They are running a similar 
(but different) algorithm that samples 
each part of the tree for solutions. 

Suppose we wanted to run exactly 
the same algorithm on a sequential pro- 
cessor. First we implement a simple 
light-weight process (or thread) system 
with nine threads. Each thread simu- 
lates one of the nine processors run- 
ning in parallel in the parallel solution. 
This method will exactly track the par- 
allel algorithm at one-ninth the speed 
(plus a small constant factor for the 
multiprogramming). The constant fac- 
tor for the thread switching only re- 
quires handling the timer interrupt and 
swapping register. 

The exact value of the thread-switch- 
ing overhead is not important anyway 
because we know it will be a constant 
factor and we can make it arbitrarily 
small by increasing the time slice value 
and considering larger trees. This 
method will approach exact linearity 
in the limit and it is only the large 
problems that one would benefit from 
using parallelism any way. 

There are other ways to look at the 
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same idea. We could dispense with 
actual multiprogramming and instead 
just sequentialize the parallel algorithm. 
That is, have the algorithm keep nine 
stacks and service them in rotation. 

The reason that their solution seems 
to produce superlinearity is (as Swaine 
mentioned) that there are several solu- 
tions and the depth-first search method 
always goes left to right and will lose 
out to the parallel algorithm if the solu- 
tions tend to cluster elsewhere. An- 
other solution would be to modify the 
depth-first algorithm to randomly de- 
cide to explore either the left or right 
subtree first and stack the other sub- 
tree. This method would visit a random 
leaf node first and then spread out on 
both sides of that node (randomly spread- 
ing left or right at each step) until it 
reached both sides of the tree. 

If it turned out that it would be better 
to visit leaf nodes randomly (and not 
spread out from a randomly selected 
left node) you could pick randomly 
from the stack rather than always tak- 
ing the most recent inserted element 
(which would make it a list, I guess). 

As long as I am writing, I thought I 
might comment on Swaine’s ideas for 
a first course in computer science. I 
am interested in this because I am an 
associate professor in the computer sci- 
ence department at the University of 
New Mexico (although I am currently 
on paternity leave). 

First, I might mention that we just 
added a course called “Programming 
Paradigms” although at the senior level. 
The thing I liked best about Swaine’s 
proposal is the emphasis on reading 
programs rather than writing them. If 
the analogies to reading and writing 
natural language or learning Morse code 
hold, then it would be much easier to 
learn to read a program than to learn 
to write one. As a result you could 
cover much more interesting and com- 
plex programs in the first course. In 
addition, learning program reading 
would help later in doing program main- 
tenance, which we know is a major 
activity of working programmers. 

A related proposal I have been hear- 
ing for a while is that the first course 
in computer science should (like the 
first course in other sciences) survey 
all the important parts of the field rather 
than just teach programming. I would 
tend to merge Swaine’s proposal into 
that one since computer science is much 
more than programming and even the 
more general area of programming para- 
digms is just a part of the whole of 
computer science. 

I do not see changes coming soon, 


however. I have been trying for several 
years to get our department to teach 
Scheme in the first programming class. 
(Scheme, rather than Lisp, so we can 
use Abelson and Sussman’s book.) Then 
the students could be writing interest- 
ing programs (like Eliza or symbolic 
differentiation) rather than worrying 
about the problems of non-conditional 
ANDs in Pascal. 

Let me close by saying again how 
much I enjoy Michael Swaine’s col- 
umns. Keep them coming. 

Charles Crowley 

Albuquerque, New Mexico 


Reading, Writing, 

and New Technologies 

Dear DD], 

Contrary to what editors of PC rags 
think, reading skill in many languages 
and (I groan at the use of this too hip 
word) paradigms is not the most im- 
portant skill that one can and should 
learn from one’s first CS course. True, 
reading is a useful skill and one should 
learn it but it is hardly the most impor- 
tant thing to learn about computers 
and computer languages. I think that 
if you have to rank the items that you 
would most like your students to walk 
away with from a programming class 
they would be: 


1. Learn to type —this skill can be 
used for many wonderful things and 
can even be used in areas of life having 
nothing to do with computers. 

2. Learn to read obtuse dreck out of 
manuals — this skill helps one not only 
over and over in CS, but also in the 
home when attempting to assemble a 
Japanese bicycle, or Sears parapherna- 
lia. 

3. Learn to pay attention to detail —this 


- skill is co-titled “get the semi-colons in 


the right place” but again it transfers 
to painting; writing specs; designing 
automobiles; managing people, money, 
or time; playing piano or video games. 
If you want to do any of these right you 
must be concerned with detail. 

4. Learn responsibility — the computer 
does exactly what you tell it, no more, 
no less. If you want it to do the right 
thing, you alone are responsible for the 
product of your code. 


You can get all of this by teaching 
any computer language, however, the 
emphasis is on writing, not on reading. 
When reading you can skip over de- 
tails, when writing you can’t. Reading 
is lazy in comparison to writing. 

By the way, are high-level languages 
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while (TRUE) f{ Je proces| ASCII Table |il match or error */ 

| DOS Shell | 
| Run DOS Program (ny length key-sequence */ 
| Color Toggle 
| UGAZEGA Toggle 
| Execute Macro 


eve e eect! Keystroke Macros | 


jegetseq(keybuf , i); 


if (i == 6) f inst keypress */ 


if (*keybuf == delinit, Add Macro 


| Display Macros | 
x Check if APMP Lost tron Disk | 
| Save to Disk | 
if ( (xkeybuf 0) Ge 
printf ('%c", xkeybuf); 
xcodbuf++ = *keybuf; 
xcodbiff = 00; 
xcodbuf = KFF; 
return( TRUE); 


7* High byte 00 for chars */ 


Edit source file; then press <CTRL-E> for next error, <ESC> for menu 


Finally, you can choose the best editor for your needs without 
compromising performance or paying too much. And organiza- 
tions that want the “same” editor for everyone can pick VEDIT® 
for most users and VEDIT PLUS for their power users. 


The new family of VEDIT text editors are upwards compatible, 
easy to use and offer exceptional performance, flexibility and 
stunning speed. (3 to 30 times faster than the competition on 
large files where speed really counts.) 


Call for your free evaluation copy today. See why VEDIT has 
been the #1 choice of programmers, writers and engineers 
since 1980. 


VEDIT Jr.— Unmatched performance for only $29. 

All VEDIT editors include a pull-down menu system with “hot 
keys,” context sensitive on-line help, pop-up status and ASCII 
table, a configurable keyboard layout and flexible, unlimited 
keystroke macros. Edit files of any size and any line length. 
Perform block operations by character, line, file or column. Undo 
up to 1000 keystrokes— keystroke by keystroke, line by line, or 
deletion by deletion. Automatic indent, block indent and paren- 
theses matching speed program development. Word wrap, 
paragraph formatting, justification, centering, adjustable mar- 
gins and printing for word processing. Run DOS programs. 


VEDIT—A best value at only $69. 

Simultaneously edit up to 36 files and split the screen into win- 
dows. Search/replace with regular expressions. Includes the 
best compiler support available— menu driven, easy selection 
of compiler options, supports “Include” files and MAKE utilities. 


VEDIT PLUS — Ultimate programmer's tool for only $185. 
VEDIT PLUS adds the most powerful macro programming 
language of any editor. It eliminates repetitive editing tasks and 
permits creating your own editing functions. The macro 
language includes testing, branching, looping, user prompts, 
keyboard input, string and numeric variables and control over 
the size, position and color of windows. Source level macro 
debugging with breakpoints and tracing. Macros developed 
with VEDIT PLUS also run under VEDIT. 


30 day money-back guarantee. Call for pricing of XENIX, OS/2 
and FlexOS versions. Very attractive quantity pricing is avail- 
able for schools, hardware and software vendors. 


VEDIT and CompuView are registered trademarks of CompuView Products, Inc. BRIEF is a 
trademark of UnderWare, Inc. Norton Editor is a trademark of Peter Norton Computing Inc. QEdit 
is a trademark of SemWare. 


*Supports IBM PC, XT, AT, PS/2 and clones with CGA, MGA, EGA, VGA, Wyse 700, Amdek 1280 
and other displays. Also supports Concurrent DOS, DESQview, Microsoft Windows, 
PC-MOS/386 and most networks. 

*Also available for MS-DOS (CRT terminals), Tl Professional and others. 

*Free evaluation disk is fully functional and can edit small files. 


Block Edit File Goto Help jfe¥e Print Search Undo Window Config 





Introducing... 


The 1st Family of 
Low Cost, Powerful 
Text Editors 


VEDIT Jr. $ 29 
VEDIT $ 69 
VEDIT PLUS $185 











FREE Evaluation Copy* 
Call 1-800-45-VEDIT 


Compare Features and Speed 


VEDIT BRIEF 2.10 Norton 1.3 QEdit 2.07 


































Pull-Down menus Yes No No Yes 
Pop-Up ASCII table Yes No No No 
Keystroke macros 100 + 1 No 100 + 
Regular Expressions Yes Yes No No 
“Cut and Paste” buffers 36 1 1 100 
Text (book) markers 10 10 No No 
Undo keystroke by keystroke Yes Yes No No 
Undo line by line Yes No No No 
Normal/max Undo levels 500/1000 30/300 - ~ 
Variable tab positions Yes Yes No No 
Configurable keyboard Yes Yes No Difficult 
Integrated mouse support Yes No Yes No 
FILE LIMITS 

Edit files larger memory Yes Yes Difficult No 


Maximum line length > 8096 512 65,535 512 
Maximum lines/file 8,388,607 65,535 >65535 20,000 
COMPILER SUPPORT None None 
Menu driven Yes No ~ - 
Select Compiler options Menu Difficult - ~ 
Support “Include” files Yes No - _ 
BENCHMARKS 50K FILE 
Simple search 0.2 sec 1 sec 1 sec 0.3 sec 
Save and continue 1 sec 2 sec 2 sec 1 sec 
1000 replacements 3 sec 19 sec 17 sec 2.5 SEC 
BENCHMARKS 3 MEG FILE 
Simple search 1:40 min = 1:36 min Cannot Cannot 
Save and continue 1:05 min 3:23 min Cannot Cannot 
60,000 replacements 3:18 min 1:44hour Cannot Cannot 
Block-column copy (40 x 200) 2 sec 30 sec Cannot 2 sec 
Insert 1 Meg file in 

middle of 1 Meg file 1:11 min 15:13 min Cannot Cannot 
PRICE $69 $195 $75 $54.95 














CompuView 


1955 Pauline Blvd., Ann Arbor, MI 48103 
(313) 996-1299, Fax (313) 996-1308 
CIRCLE NO. 109 ON READER SERVICE CARD 


DS ii Sa ae 





(continued from page 10) 

like Fortran a different paradigm from 
assembly code? Is Quicksort a different 
sorting paradigm from, say, bubble sort? 
Is OOP with multiple inheritance a dif- 
ferent paradigm from the traditional 
single inheritance OOP? Were big tail 
fins on cars the new paradigm in car 
design or just style? Is the word para- 
digm coming to mean anything that is 
a little different from something else 
but you want to emphasize how hard 
it was for you to learn the new thing 
by claiming that the new thing is revo- 
lutionary or radical? This hardly matches 
Khuns’ [sic] use (yes, I know he used 
the word in 187 different ways in the 
203 uses in his book) where he refers 
to One common mindset (Newtonian 
mechanics) that had to be replaced in 
light of new knowledge (relativity). Note 
the words “common” and “replaced.” 
OOP is not replacing assembler and 
neither is parallel computing replacing 
sequential computing. They have all 
been around for years and are different 
fields of endeavor, they are not alter- 
nate views of one reality. The way 
Swaine uses the word paradigm is cute, 
adds zest to his articles (which I enjoy 
quite a bit, don’t misunderstand me), 
and sparks controversy because it is 
fundamentally wrong, but somewhat 
defensible due to the vagueness of the 
word to begin with. It’s a good way to 
spark reader feedback but is on the 
same level as using cheesecake photos 
to spark sales. 

If I may render the opinion of an old 
computer hack, message passing, event- 
driven windows systems are new and 
an exciting territory to someone from 
the Hi-Level App school but is just busi- 
ness as usual to us ASM systems hacks 
who have been writing interrupt driven 
(message from the data unit #4 just 
came in at a higher priority than the 
disk, right when we were in the middle 
of ... ) device handlers since the early 
50s. We just wanted to share the joy of 
systems hacking to all the Apps writers. 
Yes, it is graphical and sexy and new 
and different from what you are used 
to, but revolutionary? Was structured 
programming and indenting revolution- 
ary? Yes, people wrote spaghetti code 
with gotos but others of us felt is was 
unreadable and developed styles to limit 
the code flow so we could understand 
what was going on. When those be- 
came standardized and were given 
names in high-level languages was that 
the revolution? And now OOPs are the 
great new snake oil of the 90s. Boy, 
When you get objects you will really 
be set free! No more hard code to write. 
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You want to print a floating point num- 
ber you just tell it DISPLAY YOURSELF 
and it knows what to do. The fact that 
Basic has kept track of strings and inte- 
gers and floats and printed them ap- 
propriately for years is not germain. 
The fact that for years people have 
kept fields in records to identify what 
type of record it is so that they can 
CASE to the right code is beside the 
issue. In OOPs it is all automatic. All 
your CASES are hidden from view, the 
code writes itself! Well, actually you 
do have to write all the separate cases, 
but instead of keeping them in one file 
of subroutines you can keep them in 
separate little files with the object classes! 
And you can inherit from one class to 
another, that was when it is appropri- 
ate to reuse it without even rewriting 
it! Radical! Of course, if the record is 
really different you have to write some- 
thing new, but hey, you can use any 
of the other subroutines that you’ve 
already written to make it really easy! 
Of course, if there are bugs you still 
have to go find them. 

Fortunately, since you are reusing all 
these wonderful already debugged meth- 
ods, the problem is always in the code 
you've just written, unless, of course, 
you made a mistake in one of the old 
methods that you just never exercised 
until just now. Also, if you design it 
wrong from the start, you may not know 
it until you finish because you start at 
the bottom with simple classes and build 
your way up (as opposed to top down) 
and you may have to rebuild the whole 
thing anyway, but we'll fix that in our 
next paradigm shift, eh? In short, my 
impression of the great progress in com- 
puter software in the last decade is that 
we have discovered some important 
things: 


1. There is a lot of money to be made 
in software. You make more money 
selling Barbie’s clothes than you make 
selling Barbie dolls. 

2. Software is a fashion market. You 
must convince the user that if he doesn’t 
have fins on his machine he is just not 
where it is at. His old software just isn’t 
as cool as the new stuff. 

3. Your look must be coordinated. That 
is, the jacket alone won’t do it. You 
have to have the Object-Oriented Com- 
piler, and the OODebug, and the OOEdi- 
tor, and the OOFileSystem. 

4. OO la la, look at the money just 
waiting to be made. 

5. Mostly, we need lots of hype in the 
press, preferably of the type that tells 
people the new stuff is magic — that 
is, cures everything, is new, revolution- 





ary, very technical, and hard to under- 
stand. You'll have to change your whole 
outlook cause this is one of those mind- 
bending paradigm shifts. 

Marlin Eller 

Seattle, Wash. 


CRC Algorithms 

Dear DDJ, 

In Al Stevens’ column “C Programming” 
in the April 1989 issue of the magazine, 
while discussing the compute_crc func- 
tion, he stated that he did not know 
how the algorithm worked. I published 
a “Design Idea” in EDN magazine on 
October 31, 1984, which may help to 
clarify the function of the bitwise CRC 
algorithm. This Design Idea was voted 
“best of issue,” so there must be many 
people out there who found the appli- 
cation of software-generated CRCs in- 
teresting. 

The basis of the algorithm is a simu- 
lation of the hardware tapped shift- 
register used to generate CRCs. I show 
the registers shifting right while your 
implementation shifts left. Your feed- 
back constant 0x1021 is the CCITT value 
0x8408 bit-reversed. Your version of 
the implementation stores the data byte 
into the lower 8 bits of the left-shifted 
CRC in order to affect the data input 
which I show as a single bit input to 
the accum_crc function. My CRC is 
16-bits, while your implementation re- 
quires a 24-bit CRC variable, of which 
the high-order 16-bits match my CRC 
variable. 

I hope that this helps to clarify the 
CRC algorithm Al showed in his article. 
Considering the amount of interest I 
found when I published, you will prob- 
ably get a number of letters from read- 
ers concerning the CRC function. There 
are much faster CRC algorithms which 
use small, precomputed tables to do 
the CRC calculation for an entire data 
byte at a time, eliminating the for loop 
required in the bit-by-bit algorithms I 
have devised. 

Meanwhile, keep the articles com- 
ing! You do the readership a great serv- 
ice by publishing source code listings 
in the magazine. I’ve been a reader 
(and occasional contributor) for over 
12 years now. 

Robert D. Grappel 
Concord, Mass. 


Mapping DOS Memory Revisited 

Dear DDJ, 

Iam writing in response to a letter from 

Bruce Koivu that appeared in your April 
(continued on page 173) 
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Our tols are not exciting 
Life withou 


t’s a wonder that complex software 

ever works. The process of creating it 
is inherently error-prone. A number of people 
separately create and constantly change a 
series of components that may be inter- 
dependent (perhaps even in unrecognized 
ways). Then they create the final product by 
combining the components. 


Our Configuration Management tools 
manage the process, enhance communication 
and project coordination, and help ensure 
product reliability. In short, they save money, 
effort and time during every phase of the 
product lifecycle. You can obtain these 
benefits for your current project without 
disrupting development. 


PVCS 


The core of Configuration Management is 
version control. The POLYTRON Version 
Control System (PVCS) provides complete 
control over the configuration of your source 
code and even documentation. Previous 
versions are easily retrieved at any time. The 
most up-to-date version is always instantly 
available and its genesis is completely 
auditable. Conflicting module changes, even 
if programmers work on the same module 
simultaneously, are eliminated. You always 
know who made a change, what the change 
was, when it was made, why it was made, and 
what revisions contain the change. You can 
even prevent unauthorized changes and 
coordinate revisions, special versions and 
upgrades — automatically. 


It locked up during 
the demo ... AGAIN! 


| don’t see 
my changes. 


PolyMake 


PolyMake automatically invokes your com- 
piler, linker, and other tools to rebuild your 
system when modules change. The new 
multi-language dependency generator brings 
even more precision to your builds. The same 


PolyMake makefiles can run on MS-DOS, 
OS/2, SunOS, AIX, and VAX/VMS. 


Exclusive features include integration with 
PVCS, PolyLibrarian object library com- 
patibility, hierarchical dependency trees, 
configurable multi-directory paths, extensive 
pre-defined macros, conditional constructs, 
nested include files, multiple operating system 
compatibility, and “list-of-files” support. 


A Common File Format Across 
Operating Systems Has Helped Make 
PVCS The Industry Standard. 


WW Ne BION SunOS 


What does the 
documentation say? 


| thought we 
had everyone's. 


What 


hem can be 


PolyDoc 


PolyDoc automates the nastiest job in pro- 
gramming — Source Documentation. The 
alternative is manually gathering source 
documentation from obsolete specifications, 
wads of scribbled notes and ruminations of 
absent-minded programmers. With PolyDoc, 
programmers, project leaders, teams and 
entire organizations have an easy, practical 
way to check, share and reference project 
documentation. PolyDoc compiles a Project 
Documentation Library (PDL) that stays 
current with the project as it evolves. Source 
documentation is automatically extracted 
from the code and organized in the PDL 
according to keywords the programmer has 


embedded in the code. 
POLYTRON products can be used independently 


or together, and are priced on a “Per User” 

basis. The price per user decreases as you add 
users. MS-DOS, Macintosh MPW: Personal 
PVCS: $149. Professional PVCS: $395. Network 
PVCS: $1,284 for 5 users. PolyMake, MS-DOS: 
$149. Network PolyMake, MS-DOS: $484 for 5 
users. PVCS and PolyMake are packaged 
together on: OS/2: $695 single user, $2,259 for 
5 users. SunOS & AIX: $795 single user, 

$2 584 for 5 users. VAX/VMS any model: $995 


single user, $3,233 for 5 users. 
30 Day Money Back Guarantee 


1-800-547-4000 Dept. DDJ 


POLYTRON Corp., 1700 NW 167th Place, Beaverton, 
OR 97006 (503) 645-1150, FAX: (503) 645-4576, 
TELEX: 325800 POLYTRON. 


Hello, POLYTRON. 


documentation? 











DESQview 2.2 and DESQview 386. The 


multitasking, windowing environments 
that work with your favorite software. 


DESQview” is the operating environment 
that brings OS/2™ power to DOS. And it 
lets you, with your trusty 8088, 8086, 
80286, or 80386 PC, leap into the next 
generation in PC productivity. For not 
much money. And without throwing 
away your favorite software. 


Introducing DESQview 2.2 


And now, DESQview 2.2 adds capabilities, 
performance, and compatibility 
enhancements you ve been asking for: 


Like being able to fine tune DESQview 
performance “on the fly.” Run Lotus Express 
and Metro. And the Intel Connection Co 
Processor. Even use the DOS 4.0 shell with 
DESQview. Have DESQview automatically install 
Quattro, Sprint, Aldus PageMaker, Microsoft 
Excel, Word Perfect, Dataease and as many as 80 
other programs. And using the DESQview API, 
be able to dynamically link them. 


More bang; less bytes 


While other programs get bigger, we've worked 
to make DESQview smaller. And we've 
succeeded in a big way on PCs and PS/2™s with 
extended, EMS 3.2 (AboveBoard), EEMS and 
EMS 4.0 memory—as well as on 386 PCs and 


777 TECH 
7 1 Professional — 
E \Solutions Award | 

1989 


my | Best Operating | 
: mment — 





















PC WERLD — 





| Switch Windows 


‘| Close Window 
: Ge: Paradox? 2 sy Rearrange 
eo UE Ask Report Create Zoom 
_ +i-—PageMaker-3 .0-|View a table. . 
Transfer 
Scissors 


wm} Help fer DESQview 7 
pecs | Quit DESQview 
el 


} 
; 


we - 
bY it phy ee 


2092.28 || 





PS/2s. For example, DESQview overhead on 
EMS 4.0 and 386 PCs can be as low as 10K on 
EGA/VGA PCs. And DESQview actually 
increases memory 30K on CGA PCs; 20K on 
monochrome and Hercules PCs. That’s good 
news for users of big desktop publishing, CAD 
and database programs. 


Introducing DESQview 386 


For users of 80386 PCs and PS/2s (or PCs with 
80386 add-in boards, such as the Intel Inboard 
386), there’s DESQview 386 (a combination of 
DESOview 2.2 and the new QEMM-386 
Quarterdeck Expanded Memory 
Manager, version 4.2). 
DESQview 386 gives you 
extraordinary power. Run text, 
CGA, EGA, VGA, and Hercules 
programs in windows and in the 
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background. Run 32-bit 386 programs, like 
Paradox 386, and IBM Interleaf simultane- 
ously with your favorite DOS programs. 
All with the speed and performance you 
expect out of your 386. And with protec- 
tion against ‘misbehaved’ programs. 


Promise and performance 


And, of course, both DESQviews have all 
the features that made prior versions the 
popular choice in operating environments. 
The ability to multitask in 640K and 
beyond. View programs in windows or 
full screen. Transfer data. Access DOS via 


DESQview lets you run your favorite programs in windows side-by-side. menus. Dial your phone. And create key- 


stroke macros within and between programs. 
Our story gets better and better 


If there’s any doubt about our commitment to 
your PC and PS/2 productivity, just look at our 
accomplishments over the years. We think you 
will understand why GE, Ford, Aetna, 
Monsanto, and so many other major 
corporations use DESQview. 


And why PC Magazine twice gave DESQview its 
Editor’s Choice Award for “The Best Alternative 
to OS/2,” why readers of InfoWorld voted 
DESQview “Product of the Year” three times. 
Why, by popular vote at Comdex Fall for two 
years in a row, DESQview was chosen “Best PC 
Environment” in PC Tech Journal’s Systems 
Builder Contest, and just won their “Professional 
Solutions” Award. 


DESQview lets you have it all now. 


Jelivers. 





QEMM. 
Break the 


for $59.95 


Your 80386 PC, IBM Personal System/2 Model 
80, PC or AT with 80386 add-in board, as well as 
your IBM Personal System/2 Models 50 or 60 
can all break through the DOS 640K barrier. Now 
you can have maximum use of your 
memory—whether you have one megabyte or 
32—with the Quarterdeck Expanded Memory 
Manager. All without having to purchase special 
expanded memory boards. 


QEMM uses hidden 
features within your 
existing memory to make if 
it mak a ee with the VA 
Lotus-Intel-Microsoft YS 
Expanded Memory ES 
Specification (EMS) version 4.0. 


Now you can run colossal spreadsheets, 
databases, and CAD models designed for 
expanded memory, using Lotus 1-2-3, Symphony, 
Framework, Paradox, AutoCAD, Excel and 
more. 


And if you'd like to use these programs all 
together —multitasking beyond 640K— QEMM 
works with our popular DESQview multitasking 
environment. 


If you are one of the 12 million or so 8088, 
8086 or 80286 PC users who feel left out, don’t 
despair. We have options that let you keep your 
computer and favorite programs and give you 
today what the newest PCs and operating 
systems are promising for the future. 


Visit your dealer for more information on 
barrier-breaking Quarterdeck products. 






DESQview API ‘Too 
and Pascal 

640K barrier Libraries, Debugger. 
Panel Designer. 


New 





API Reference Manual 


The key to the power of the DESQview API, our 
Reference Manual contains all you need to know 
to write Assembly Language programs that take 
full advantage of DESQview’s capabilities. And 
there’s an ‘include’ file with symbols and macros 
to aid you in development. 


API C Library 


Here are C language interfaces for the entire set 
of API functions. It supports the Lattice” C, 
Metaware™ C, Microsoft® C, and Turbo C 
compilers for all memory models. Included with 
the C Library package is the API Reference 
Manual and source code for the library. 


API Pascal Library 


Pascal V4.0 and V5.0 compilers. Included are the 
API Reference Manual, source code for the library, 
and example programs. 


API Debugger 


The DESQview API Debugger is an interactive 
tool enabling the API programmer to trace and 
single step through API calls from several 
concurrently running DESQview-specific 
programs. Trace information is reported sym- 


= 
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d more 


bolically along with the program counter, 
registers, and stack at the time of the call. Trace 
conditions can be specified so that only calls of 
interest are reported. 


API Panel Designer 


This interactive tool helps you design windows, 
menus, help screens, error messages, and forms. 
It includes an editor that lets you construct an 
image of your panel using simple commands to 
enter, edit, copy, and move text, as well as draw 
lines and boxes. You can then define the charac- 
teristics of the window that will contain the 
panel, such as its position, size, and title. Finally, 
you can specify the locations and types of fields 
in the panel. 


The Panel Designer automatically generates 


The Pascal library provides interfaces for Tea #7 all the DESQview API data streams necessary to 


entire set of API functions. It supports Turbo 


display and take input from your panel. These 
data streams may be grouped into panel libraries 
and stored on disk or as part of your program. 


More Tools are Coming 


Quarterdeck is committed to adding tools as 
needed by our users. To that end we have been 
working with Ashton Tate and Buzzwords 
International on dBASE III and dBASEIV 
translators. And in the works, we have BASIC 
and DOS Extender libraries. 


z#7Quarterdeck 


Quarterdeck Office Systems, 150 Pico Blvd., Santa Monica, CA 90405 (213) 392-9851 
FAX: (213) 399-3802 


For additional information, please use the following Reader Service numbers: DESQview: #234 QEMM: # 235 API Tools: #236 API Conference : # 237 
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The Power of Iwo 


ophisticated applications require 

the integration of many software 

components and it has recently 

been argued that object-oriented 

technology is one of the most 
effective ways to deal with this com- 
plexity. Although many programmers 
advocate extending an existing lan- 
guage, such as C, into a hybrid lan- 
guage, such as C++ or Objective C, 
these systems lack the flexibility, li- 
brary, environment, and memory man- 
agement of pure object-oriented lan- 
guages like Smalltalk. 

In this article, we describe a prag- 
matic approach which we call “Small- 
talk + C,” that allows each language to 
be used where appropriate. Smalltalk, 
for example, is used to represent and 
manipulate high-level information while 
C is used to implement small, time/ 
resource critical low-level facilities — 
an approach we've found to be effec- 
tive. First, we'll illustrate the power of 
this unlikely marriage as implemented 
in dbPUBLISHER, a database publish- 
ing program we developed using Digi- 


Dave is the president of Computer Based 
Information Systems, Inc., based in Ot- 
tawa, Ontario, Canada. He can be 
reached at 613-728-1558 or dtho- 
mas@carleton.ca. 

Randolph is the executive vice presi- 
dent of engineering and development 
for Digital Composition Systems, Inc. 
He can be reached at 1715 W Northern 
Ave., Phoenix, AZ 85021, 602-870-7667. 
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Is Smalltalk + C > C++? 


Dave Thomas and Randolph Best 


talk’s Smalltalk/V. Second, we'll exam- 
ine an embedded TCP/IP network ap- 
plication written in Smalltalk/V286. 


The Strength of C 

The major benefits and weaknesses of 
C are well known to most readers of 
DDJ. C is a low-level language for sys- 
tems programming such as device driv- 
ers. It is portable, and in most cases, is 
the most efficient language available 
on a given hardware platform. Unfor- 
tunately, when C is used in a large 
project, its power leads to problems of 
reliability. (The market for hardware 
debuggers is testimony to the prob- 
lems of debugging large C applications.) 
We use C for the necessary low-level 
routines for our applications. Because 
these routines typically have a single 
function and can be written in a small 
number of lines, they are readily un- 
derstood and tested. Often these small 
modules can be reused in several quite 
different applications. 


The Power of Smalltalk 

Smalltalk provides all of the facilities 
for programming-in-the-large that C 
lacks, including a robust interactive en- 
vironment for applications develop- 
ment. Because everything in Smalltalk 
is an object, pointer errors like those 
in C are eliminated. Smalltalk uses a 
sophisticated, high-speed, garbage col- 
lector to manage memory so the pro- 
grammer doesn’t need to worry about 
the complexities of storage manage- 
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Smalltalk + C 








ment. Developers who work with Mi- 
crosoft Windows, Presentation Manager, 
and the Macintosh are only too familiar 
with subtle storage management bugs, 
which are eliminated by using a gar- 
bage collector. 

The class structure of Smalltalk pro- 
vides the organizational framewo-k 
needed for a large application. It al- 
lows the application programmer to 
concentrate on the application classes 
and to ignore low-level details. The 
Smalltalk language, however, doesn’t 
allow the programmer to have direct 
access to the underlying hardware. 
While Digitalk’s implementation is ex- 
tremely fast, there are some things that 
require low-level programming, or at 
least access to a program written in 
another language. There are two ways 
to do this in Smalltalk/V, by “using the 
DOS shell” and through “user prim- 
itives.” In Smalltalk/V286, a more so- 
phisticated “virtual machine” interrupt 
strategy is available. 


The dbPUBLISHER Challenge 

Database publishing requires complete 
report generation, data conversion, for- 
matting, and tightly coupled page com- 
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position tools in one integrated pack- 
age, none of which is supported by 
traditional desktop publishing soft- 
ware. Our primary goal in the develop- 
ment of dbPUBLISHER was to provide 
these features in software that would 
run on 560K, 80286/386, MS-DOS/DOS 
hardware. Our biggest challenge was 
to do so with limited development funds 
and an outrageous 8-month delivery 
schedule. 

Our existing library of C modules 
that perform page composition, image 
import, font management, and report 
generation required a completely new 
user interface. We needed a non-stan- 
dard interface that used a small num- 
ber of screens for report generation, 
report layout, professional typesetting, 
and markup tag insertion. Smalltalk/V 
proved to be the ideal tool for building 
the user interface and the main pro- 
gram. It dispatches to external C and 
Pascal programs for specialized services. 
Figure 1 illustrates dbDPUBLISHER’s ar- 
chitecture. 

Our user interface supports a full 
windows-style look-and-feel. An out- 
liner style interface is used to define 
complex structured reports. This gives 





the user full visibility of the entire re- 
port structure. The user can construct 
complex nested SQL-style queries to 
compose a report directly from multi- 
ple databases and/or spreadsheets. To 
accommodate the demands of com- 
plex typography, dbPUBLISHER uses 
over 50 detailed dialog boxes. Page 
layout for reports is performed using a 
WYSIWYG MacDraw-style application. 
Unlike most drawing editors which use 
screen resolution, we use scaled pixels 
(1/4736287 inches). With this resolu- 
tion dbPUBLISHER can be used for fine 
typography such as forms and tables. 


Invoking Another Program 

The DOS shell in Smalltalk/V rapidly 
dumps the current memory image to 
disk and runs an external program 
via COMMAND.COM. The resident stub 
is approximately 40 Kbytes. Our en- 
hancement reduces the stub size and 
allows external programs outputting in 
text mode to pour properly into a Small- 
talk/V graphics window. These facili- 
ties were implemented using our own 
Load-and-Execute primitives which also 
allow the current environment strings 
to be read and written. 

Primitives are simply Smalltalk meth- 
ods written in another language. A 
user of a primitive method doesn’t 
see any difference in calling it versus 
calling a normal Smalltalk method. The 
code in Listing One (page 94) illus- 
trates both the definition and use of the 
primitive method doDCSPrimitive:. In 
Smalltalk/V, you are forced to use num- 
bered primitives, but in Smalltalk/V286 
and V/Mac, you can have user primi- 
tives. 

The Load-and-Execute primitive re- 
sides in low memory and swaps a block 
of high memory to a temporary file, 
adjusts the DOS memory handles so 
that DOS thinks there is enough mem- 
ory available to run the application, 
and then performs a normal DOS EXEC 
function call (int 21h, ax=4b00h). When 
control returns to the primitive, the pro- 
cess is reversed; memory handles are 
reconstructed, the block is read from 
the temporary file (which is then de- 
leted), and control is returned to Small- 
talk. Unfortunately, this simple strategy 
does not work in real-life on 80x86- 
based computers running MS-DOS. The 
primary reason this approach fails is 
that the block of memory that is 
swapped out will quite likely contain 
data and code required by both DOS 
and any asynchronous events (nota- 
bly, mouse events, control-break, and 
critical errors). In addition, the parame- 
ters that are passed to the primitive by 
Smalltalk also reside in this swapped- 
Out region. 
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In general, the solution is to move 
the offending objects to low memory 
where they can be protected by the 
primitive, or (in the case of unwanted 
asynchronous events such as the mouse 
event handler) be masked, disabled, 
or replaced, as appropriate. Smalltalk 
parameters and the DTA pointer can 
be moved into low memory, but asyn- 
chronous interrupt service routines 
(SRs) are not easily detached and 
moved about. Thus, the only solutions 
available are to either disable them, or 
to replace the offending ISRs with 
dummy code that prevents the system 
from crashing. 

It is not acceptable, however, to ar- 
bitrarily re-vector the entire interrupt 
vector table, nor is it acceptable to dis- 
able essential hardware interrupts (that 
is, diskette, keyboard, real-time clock, 
and so on). Actually, the only inter- 
rupts that need to be re-vectored are 
those that might get clobbered when 
the application is executed. In other 
words, if an interrupt vector currently 
points into the region of memory that 
we are about to make available, we 
should first point that vector to a dummy 
ISR’ then restore it when we are through. 

The source code in Listing Two (page 
94) illustrates the primitive implemen- 
tation for an interface to DOS, special 
purpose dbPUBLISHER primitives, and 
running external C and Pascal programs. 


A TCP/IP Ethernet Application 
However unlikely it may seem, we used 
Smalltalk/V286 in a TCP/IP application. 
It provided split execution of the gra- 
phical human interface on an IBM AT, 
with a specialized Smalltalk/V286 em- 
bedded virtual machine running on a 
VME bus Unix system. This application 
proved that the speed of the byte code 
interpreter was up to the task. 

This application required the pro- 
cessing of interrupts from an external 
hardware and software source. Digi- 


talk provided virtual machine interrupts 
for this application. Listings Three and 
Four show source code that illustrates 
the interface between a TCP/IP Ether- 
net resident driver (that runs in Real 
mode) and Smalltalk/V286. (Listing 
Three, page 95, shows a sample Small- 
talk/V286 calling method, while Listing 
Four, page 96, provides the Smalltalk/ 
V286 nia: language primitive in- 
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f manipulate high-level 


tion, Se Cis is. 







j Lge! ti bd sburc rce 
critical low-level 
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terface.) This interface allows a host 
PC to talk to an embedded target real- 
time system. 

One Smalltalk user primitive is pro- 
vided: socketPrimitive dispatches the 
appropriate code based on an opcode 
parameter. The arguments are passed 
in a Smalltalk Array. The primitive runs 
in protected mode, sets up the parame- 
ter block the installed driver expects, 
and switches to real mode (CALL_ 
NETWORK macro in sockprim.inc) us- 
ing the INT 50H call. This call then runs 
the doEthernetint (in sockprim.asm) in 
real mode which does the INT 68H call 
to the installed driver as would any 


_dbPUBLISHER 
Application primitives 


Composition | | Output drivers| | Font management 
(Pascal) (C) : Cc 





Figure 1: dbPUBLISHER architecture 
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other application. On return, the error 
code is extracted from the parameter 
block and returned as an instance field 
of the receiver (the object to which the 
message causing the primitive was sent). 
This illustrates mode switching. 

As part of initialization, the Smalltalk 
primitive calls the installed driver (us- 
ing the procedure described earlier) 
with the address of a small routine 
(socket_event_handler). This address is 
in the segment of the primitive that is 
to be called when a Smalltalk VM Inter- 
rupt should be generated. Any hard- 
ware interrupts cause an automatic 
switch to real mode and a call to the 
handler that was installed before Small- 
talk was invoked. Thus, upon servicing 
an interrupt from the Ethernet card, the 
installed driver can call socket_event_ 
handler in real mode to cause a Small- 
talk VM Interrupt. Virtual Machine In- 
terrupts can be generated from either 
real or protected mode, both are han- 
dled by different Digitalk macros. 


Conclusion 

These examples illustrate how two 
proven programming languages can be 
combined into a single application. This 
approach enabled us to get a new prod- 
uct into production quickly, in spite of 
a small engineering budget. We now 
have time to do the OS/2 Presentation 
Manager version by re-directing Small- 
talk/V286 primitives to the appropriate 
PM calls, and to improve performance 
with multitasking techniques. We can 
port the application to the Macintosh 
II with less trauma than typical Mac 
ports and with a guaranteed reliability 
factor. Smalltalk’s inherent object pro- 
tection yielded a bullet-proof applica- 
tion program for first release. 

The success of Hypercard and Hy- 
percard Xcommands (primitives) is an- 
other convincing example of the bene- 
fits of small, single-function primitives 
combined with a flexible user-program- 
mable interpreter. The point is simple — 
use the right language for the right job. 


Availability 

All source code for articles in this issue 
is available on a single disk. To order, 
send $14.95 (Calif. residents add sales 
tax) to Dr. Dobb’s Journal, 501 Galves- 
ton Dr., Redwood City, CA 94063, or 
call 800-356-2002 (from inside Calif.) 
or 800-533-4372 (from outside Calif.). 
Please specify the issue number and 
format (MS-DOS, Macintosh, Kaypro). 


DDJ 
(Listings begin on page 94.) 


Vote for your favorite feature/article. 
Circle Reader Service No. 1. 
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Nasties. 
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Nasty over-write? No sweat! 





Soft-ICE memory range break points help you 
track down memory over-write problems 
whether you are doing the over-writing or 
another program is over-writing you. 


Hung program? No problem! 


When the system hangs, you now have hope. 
With Soft-ICE you can break out of hung 
programs no matter how bad the system has 
been trashed. And with Soft-ICE’s back trace 
ranges you can re-play the instructions that led 
up to the crash. 


Program too large? Not with Soft-ICE! 





Soft-ICE runs entirely in extended memory. This means 
you can debug even the largest DOS programs. And 
since your program runs at the same address whether 
Soft-ICE is loaded or not you can find those subtle 
bugs that change when the starting address of your 
code changes. 


System debugging? Soft-ICE is a natural! 





Soft-ICE is ideal for full source level debugging of TSRs, 
interrupt service routines, self booting programs, DOS 
loadable device drivers, real-time kernels, non-DOS O/Ss 
and ROMs. Soft-ICE can even debug within DOS & BIOS. 


















on —— @ Back Trace Ranges 
MagicCV $199 
MagicCV for Windows $199 


Buy Soft-ICE & MagicCV(W) 
—Save $86. 
Buy MagicCV and MagicCVW 
—Save $100. 
—Save $186. 
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30 day money-back guarantee 
Visa, MasterCard and 
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New Soft-ICE 2.0 features 


® Symbolic & Source level debugging 

@ EMS 4.0 support with special EMS 
debugging commands 

® Windowed user interface 


Nu-Mega _ 


ECHNOLOGIES 


CALL TODAY (603) 888-2386 
or FAX (603) 888-2465 


PO. BOX 7607 & NASHUA, NH @ 03060-7607 


enough to 
New Version 2.0 


How Soft-ICE Works 


Soft-ICE uses the power of the 80386 to sur- 
round your program in a virtual machine. 
This gives you complete control of the 
DOS environment, while Soft-ICE runs 
safely in protected mode. Soft-ICE uses the 
80386 to provide real-time break points on 
memory locations, memory ranges, execution, 
I/O ports, hardware & software interrupts. 
With Soft-ICE you get all the speed and power of 
a hardware-assisted debugger at a software price. 


Don't want to switch debuggers? 





You don’t have to! 


Soft-ICE can run stand-alone or it can add its 
powerful break points to the debugger you already 
use. Use your favorite debugger until you require 
Soft-ICE. Simply pop up the Soft-ICE window to set 
powerful real-time break points. When a break point 
is reached, your debugger will be activated automatically. 


MagicCV w ith Soft-ICE 








Using Soft-ICE with CodeView gives you the features 
necessary for professional level systems debugging. 
MagicCV and Soft-ICE can work in concert with Code- 
View to provide the most powerful debugging platform 
you will find anywhere. 


“These may be the only two products I’ve seen in 
the last two or three years that exceeded my wildest 
expectations for power, compatibility and ease-of-use.” 
— Paul Mace 
Paul Mace Software 
















RUN CODEVIEW 
IN 8K 


MagicCV » 


CodeView is a great integrated ere but 
it uses over 200K of conventional memory. 
MagicCV uses advanced features of the 
80386 to load CodeView and symbols in 
extended memory. This allows MagicCV to 
run CodeView in less than 8K of conven- 
tional memory on your 80386 PC. 




























NEW-— Version 2.0 includes EMS 4.0 driver. 
Attention Windows Developers! 
Version available for CVW. 
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By its very nature, the world embraces change. By its very nature 
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ParcPlace Systems 


1550 Plymouth Street 
Mountain View, CA 94043 


800-822-7880. In CA (415) 691-6700 


onventional programming does not. 





Change is the enemy of procedural programming. Altering 
one aspect of a program can take weeks. And while you redesign, 
recode and retest, you spend huge sums of money and sacrifice irre- 
trievable market opportunities. 

Unfortunately, change is inevitable, and survival depends on 
your ability to adapt. That’s not just a cruel law of nature. It’s a hard 
fact of business. 

It’s time that programming, too, embraced change. 

The time has come for Objectworks, the object-oriented devel- 
opment system from ParcPlace. 

Objectworks for Smalltalk-80 and Objectworks for C+ + 
provide the tools to create and deliver programs designed to work in 
the fast-moving, ever-changing world of business. 

More and more companies are evolving to Objectworks for 
designing commercial applications. Because designing for the future 
means designing for change. 


Objectworks. 


Objectworks for Smalltalk-80, circle 308. Objectworks for C++, circle 379. 


ParcPlace products are available on 80386 MS-DOS, Sun, Macintosh, DECstation 3100 and HP-9000 Series 300. 
Smalltalk-80 and Objectworks are trademarks of ParcPlace Systems, Inc. All other brands are trademarks of their 
respective holders. ©1989 ParcPlace Systems, Inc. 


Making the 
C-to-Fortran 


Connection 


No matter which camp you re from, the C-to-Fortran 
connection can add functionality to your programs 


f you’ve ever had to make a con- 
necting flight to get to your final 
destination, you know it takes more 
than just getting off one plane and 
«im Onto another. Among other things, 
someone has to check that your bag- 
gage follows, your arriving flight has 
to be on time, and you have to get to 
the right gate at the right time. 

Making the C-to-Fortran connection 
is much the same. As a programmer, 
you must ensure that arguments get 
from one language to the next, and 
that any excess baggage is handled. 
Ultimately, you gain the benefits of both 
languages. With huge Fortran libraries 
such as IMSL and the wealth of avail- 
able third-party C tools, there’s no tell- 
ing how far you'll be able to take it. 

This article shows you how to call a 
Lahey FORTRAN subprogram from a 
C main program, and how to call a C 
function from a Fortran program. For 
the purposes of this article, I’m using 
Borland’s Turbo C 1.5 with Lahey’s F77L. 
This connection works equally well with 
other C compilers, including Microsoft C. 





Calling Fortran from C 
The procedure for calling Fortran sub- 
programs varies slightly between the 


Mike is a technical editor for DDJ and 
can be contacted at 501 Galveston 
Drive, Redwood City, CA 94063. On 
CompuServe 76703,4057, or on MCI 
Mail as MFLOYD. 
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different versions of C. In particular, 
Microsoft C main programs cannot call 
F77L subroutines and functions directly. 
Instead, you must create a main pro- 
gram in F77L that immediately calls the 
MSC mainc( )as if it was a subprogram. 
Once loaded, main( ) can call the ap- 
propriate Fortran subprograms. Turbo 
C and Lattice C, on the other hand, can 
call F77L subprograms directly. 

Because F77L references data by ad- 
dress, all arguments passed by the C 
program must be pointers. In the case 
of numerical constants, for instance, it 
is necessary to assign the constant’s 
value to a C variable and reference the 
variable’s address. Table 1 provides a 
list of C data types that may be passed 
to F77L along with their corresponding 
Fortran data types. 

In addition, Fortran handles strings 
differently than C does. In F77L, CHAR- 
ACTER*(*) refers to a descriptor struc- 
ture that contains the address (4 bytes) 
and size (2 bytes) of the string. The 
string size, however, may or may not 
be specified at compile time. There- 
fore, the CHARACTER*(*) declaration 
must indicate that a variable-length 
string is being passed, the length of 
which is determined by the caller. Ex- 
ample 1 shows how to pass a string, 
as well as an integer and a real, from 
C to F771. 

On the Fortran side of Example 1, 
notice the BCEXTERNAL statement im- 
mediately following the subroutine 
header. Lahey provides three external 





Dr. Dobb’s Journal, August 1989 











statements, BCEXTERNAL, MSCEXTER- 
NAL, and LCEXTERNAL, to resolve C’s 
external references to names at link 
time. Your brand of C determines which 
external statement you'll use. Example 
1 assumes that Turbo C is being used. 
Replace the BCEXTERNAL statement 
with MSCEXTERNAL if you're using Mi- 
crosoit C, or LCEXTERNAL if youre 
using Lattice C. 

One of the real strengths of the For- 
tran language is its ability to handle 
complex numbers. It’s an ideal time to 
think of calling an F77L subprogram 
from C. The C-to-F77L interface sup- 
ports two complex data types; COM- 
PLEX and COMPLEX"*16. The correspond- 
ing C structure for a single precision 
complex number is as follows: 


struct Complex { 
float real; 
float imaginary; 


Double precision complex numbers are 
handled using the following C structure: 


struct DoubleComplex { 
double real; 
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double imaginary; — 


Alternatively, you can reference com- 
plex numbers using a two-element ar- 
ray where the first element holds the 
real portion and the second element 
contains the imaginary portion of the 
complex number. 

You can also access the return value 
of a Fortran function from your C pro- 
grams. In C, you do this by passing the 
address of where the function value is 
to be stored as the first parameter in 
the call. Example 2 demonstrates how 
to access the return value of an F77L 
function. 


Going the Other Way 

As you might have guessed, it’s also 
possible to call C routines from F77L. 
There are, however, a few consider- 
ations in designing the Fortran pro- 
gram. First, an external statement must 
declare the names of all C functions 
used in the module. This guarantees 
that F77L will use the C calling 
conventions. In addition, the external 
statement tells the compiler to prefix 
each function name with an underbar 


to correctly resolve externals at link 
time. Therefore, be sure to leave the 
“Generate Underbars” switch on (the 


| default for both MSC and TC) when 


compiling on the C side. 

Passing arguments from F77L to a C 
function can be a little tricky, so watch 
out! The first potential problem is that 
C does not check to see if the correct 
number of arguments have been passed 
to it. An illegal number of parameters 
can have unpredictable results, and it 
is the programmer’s responsibility to 
check this. 

Also, C gives you the option of pass- 
ing by value or by reference. Because 
you are working with a copy, passing 
by value in a sense puts up a “fire wall” 
that prevents you from incorrectly al- 
tering the actual value of an argument. 
You lose this benefit in the Fortran-to- 
C connection because F//L requires 
that all arguments be passed by refer- 
ence. Lahey has therefore included the 
CARG function to allow the Fortran 
program to pass most arguments by 
value. Table 2 provides a list of Fortran 
data types that can be passed to C. 

You should be aware of a couple of 
restrictions. Most importantly, CARG can- 
not be used with C function return 
values. Also, CARG cannot be used with 
LOGICAL*1 nor COMPLEX data types. 

You'll find CARG useful in one par- 
ticular case. As mentioned earlier, F77L 
references a string through a descriptor 
structure, while C expects a pointer to 
a null-terminated sequence of charac- 
ters. But F77L does not include a null 
byte at the end of a string, You can, 
however, use CARG to create a null- 
terminated copy of the string and pass 
it by value. 

One final consideration involves the 
use of the prototypes in C. Because 
F77L defines both single- and double- 
precision arguments as DOUBLE, floats 
must be handled differently. For exam- 
ple, consider the following prototype: 


void func(double x) 


In order to handle a float instead of a 
double, the definition for func must 
be changed to: 


void func(x) 
float x; 


It is important to note that the follow- 
ing definition is not allowed in the 
Fortran-to-C connection: 

void func(float x) 
Arrays 


The difference in the way the two lan- . 
guages handle arrays can be the cause 
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FORTRAN CONNECTION 


pg 


(continued from page 23) 
for some confusion. In particular, C and 
Fortran treat array subscripting and se- 
quential order differently. C begins its 
subscripting at element Owhile Fortran 
normally begins subscripting at element 
1. F77L, however, allows you to create 
arrays that are O relative. Therefore, 
you must remember to declare all ap- 
propriate arrays to begin at element 0. 
In addition, arrays in F77L behave 





much like the pointers in a parameter 
list. For example, consider the follow- 
ing code fragment: 


BCEXTERNAL 
INTEGER*2 I(0:9) 


CALL C_ FUNCTIONG, I(3)) 


In C, the corresponding definition is 
as follows: 


void c_function, i3) 
int i[10], *i3; 


C and Fortran also handle multi- 
dimensional arrays differently. Fortran 
stores arrays in column-major format 
while C stores arrays in row-major for- 
mat. The solution is to simply reverse 
the subscripts in one of the two lan- 
guages. For example, consider the fol- 
lowing two-dimensional array declared 
in Fortran: 


integer*2 A(3:0, 4:0) 
The array is sequentially referenced as 
A(0,0), AC1,0), A(2,0), ACO, D), AC, LD, 
A(2, 1), and so on. To ensure compati- 


bility, the corresponding C definition 
must be as follows: 


int A[4][3]; 
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Obviously, the language you choose 
to reverse subscripts in is not impor- 
tant. To avoid confusion, however, you 
may wish to choose one language to 
consistently switch subscripts through- 
out all of your programs. That way you 
will never doubt whether your arrays 
are row-major or column-major. 


File 1/O 

You must also be aware of differences 
in the way files are handled between 
the two languages. F77L, in particular, 
adds header and indexing information 
to a file. Normally this information is 
transparent to the programmer. C, on 
the other hand, adds no such header 


nor indexing information. In addition, 
F77L uses unit numbers to access files, 
while C uses file handles and stream 
pointers. The heuristic, then, is to open, 
read, write, and close a file all from 
within the same language. The excep- 
tion, of course, is the standard device 
I/O performed on unformatted files. 
In this case, it is important to remem- 
ber that a given file cannot be opened 
simultaneously by both languages. 


Who’s the Boss? 

When it’s time to compile and link your 

modules together, the first question you 

should ask yourself is “who’s the boss?” 
The language in which the main pro- 
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gram is written is the boss. The boss 
controls the environment that your pro- 
gram will run in. Environmental con- 
siderations include how memory is man- 
aged and language calling conventions. 
When the main program is written in 
C, all of the F77L runtime routines are 
available except SYSTEM and CHAIN. 
Of course, all of the C runtime routines 
are available. When the main is written 
in F77L, all of the Fortran run-time rou- 
tines are available. On the C side, func- 
tions not requiring the C environment 
are accessible. Some memory manage- 
ment functions such as malloc, calloc, 
and free are supported. Many others, 
including farmalloc and sbrc, are not. 
Now it’s time to bring the compo- 
nents of your program together into 
an executable file. F77L uses the large 
memory model, so remember to com- 
pile your C modules under the large 
model as well. This also means that far 


int * : INTEGER*2 

INTEGER*4 

REAL*4 

REAL“8 (double precision) 
COMPLEX 


long int * 
float * 
- double * 


float[2] (real portion is stored in the first array 
element) 


Struct Complex * 

double[2] (real portion is stored in the first 
array element) 

Struct DoubleComplex* 


struct CHARACTER { 
char “text; 

int length; 
ee 


Table 1: Data types that can be passed from C functions to 


Lahey FORTRAN subprograms 


/* Shows how to pass integer, float, and string parameters 


from C to F77L. 


typedef 
etree, 4 
char *text; 
int length; 
} Str; 


extern void fortran sub(int *, float *, Str *); 


main () 
int number; 
float realNumber; 
Str charStr; 


number = 20; 
realNumber = 23.9; 
charStr.text = "Passing a text string"; 


—_— 


aaana 


SUBROUTINE FORTRAN SUB(IntVal, RVal, CharStr) 


BCEXTERNAL FORTRAN SUB 
INTEGER*2 IntVal 

REAL RVal 
CHARACTER* (*) CharStr 


PRINT *, IntVal, RVal, CharStr 
END 


Example 1: Passing a string from C to F77L 
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COMPLEX 
COMPLEX*16 


COMPLEX*16 
char * : LOGICAL*1 
CHARACTER’(*) 





fortran sub(&number, &realNumber, &charStr); 


Fortran subroutine to take three arguments (integer, real, 
and character string) passed from C, and print the results. 





FORTRAN CONNECTION 


pointers are always used. And be sure 
that stack checking is turned off when 
compiling on the C modules. On the 
Fortran side, use the /NI switch to turn 
off interface checking. And because 
floating-point calculations are handled 
by C, the NDP compiler option is un- 
necessary. If you need floating-point 
emulation, select the /E option. 

For the link step, Lahey provides a 
set of interface routines in two object 
modules that coordinate the different 
language environments. BCF77L is used 
when C is the boss, and F77LBC is 
used when Fortran is the boss. In addi- 
tion, you'll have to include C’s initiali- 
zation module, COL, when C is the boss. 
No matter who the boss is, you'll al- 
ways include both languages’ run-time 
libraries. The connection relies on C’s 
libraries for floating-point calculations, 
so you'll either use C’s floating point 
or emulation library. I’ve included the 


main () 


{ 


InVal = 2; 


} 


Cc 


END 


F77L function 


INTEGER*4 


REAL*4 
CARG(REAL*4) 


CARG(REAL"S8) 
COMPLEX 


COMPLEX 


COMPLEX*16 


COMPLEX*16 
LOGICAL*1 
LOGICAL*4 
CHARACTER 


label 
EXTERNAL 


FUNCTION CUBE (X) 
BCEXTERNAL CUBE 


INTEGER*2 
CARG(INTEGER’2) 


CARG(INTEGER*4) 


REAL*8 (double precision) 


CARG(CHARACTER) 





link command line for the C to F77L 
connection at the top of Listing One 
(see page 102), and the F77L to C con- 
nection at the top of Listing Three (see 
page 104). 


Graphically Speaking 
DOT.C (Listing. One) is a Turbo C pro- 
gram that uses the Borland Graphics 
Interface (BGI) routines to randomly 
plot pixels on the screen. The C mod- 
ule calls FRAND.FOR (Listing Two, page 
104) to generate the random locations. 
The BGI initialization routine /nitial- 
ize(_) was taken directly from Borland’s 
BGIDEMO program, and demonstrates 
an easy method for supporting multi- 
ple hardware configurations. 
Specifically, RANDDOT performs 
hardware detection and supports Her- 
cules graphics, CGA, EGA, and VGA 
hardware. The interface demonstrates 
how both a Fortran subroutine and a 


/* Shows how to access the return value of a Fortran function. 


extern void cube(int *, int *); 


int InVal, ReturnVal; 


cube (éReturnVal, &InVal); 


c Fortran function to caluclate the cube of a given number. 


INTEGER*2 X, CUBE 
CUBE = X*X*X 





Example 2: Accessing the return value of an 


int * 

int 

long int * 

long int 

float * 

float (double pushed on stack) 
double * 

double 

struct complex" 

float[2] (real portion stored in first 
array element) 

struct 


double[2] 

char * (Boolean value) 
char{ ] 

char{ | (null-terminated) 


— 


— 


Table 2: Data types that can be passed from Lahey 
FORTRAN subprograms to C functions 
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function can be called from C. 

After initializing the system to graph- 
ics mode, RandomDot( ) is called and 
the viewport settings [established by 
Initialize( )\ are retrieved. Next, the For- 
tran subroutine SEED_RAND is called 
to get the initial seed value that will be 
used by F77L’s random number gener- 
ator. SEED_RAND calls RRAND, which 
references the system clock to generate 
the initial pseudorandom value. RRAND 
also generates and stores the seed value, 
which the random number generator 
function RND will later use. The initial 
value generated by RRAND is returned 
to the caller in RandomDot ). 

Next, a for loop is used to generate 
and plot 500 randomly placed (and 
colored) dots on the screen. The ran- 
dom values are gotten from the Fortran 
function FRAND which, in turn, calls 
RND. RND retrieves the seed value gen- 
erated by RRAND. This process of seed- 
ing RND is completely transparent to 
the programmer, and is one of the side 
benefits of using the Fortran RND func- 
tion as opposed to C’s random( ) func- 
tion. It is also worth noting that, from 
the C side, it is difficult to distinguish a 
subroutine from a function because the 
Fortran function must return its value as 
the first argument in the parameter list. 


Sorted Partners 

As a final example, consider SORT.FOR 
(see Listing Three). SORTuses RND to 
generate an array of random integer 
values that are then passed to C’s qsort 
routine (see Listing Four, page 104) for 
sorting in ascending and descending 
order. Once sorted, the values are dis- 
played and the user is prompted for a 
value to search for. The input value is 
passed to C’s bsearch function and the 
results of the search are displayed. The 
sort could have been done using a 
bubble sort in Fortran, but a quick sort 
is much faster. C’s bsearch function is 
used for similar reasons. Add to that C’s 
ability to manipulate pointers, and things 
start moving significantly faster. Finally, 
qgsort and bsearch are part of the run- 
time library, so there’s no need to rein- 
vent the wheel. 


Final Note on Versions 

As mentioned at the beginning of this 
article, I used Borland’s Turbo C 1.5. 
TC 2.0 was not supported at the time 
of this writing, although Lahey plans 
to release a new version of F77L by the 
time this article reaches print. Lahey 
also supports Microsoft C 3.2 and up, 
although there are problems passing 
character lengths in MSC 4.0. The con- 








nection also works with early versions 
of Lattice C, but Lahey no longer sup- 
ports that compiler. On the Fortran side, 
Lahey provides a 32-bit version of F77L 
(F77L-EM/32) that is compatible with 
Metaware’s High C 386. On the low 
end, Lahey provides a student version, 
LP77, that is compatible with the C 
compilers mentioned earlier. LP77, how- 
ever, requires routines from the LP77 
toolkit, which is available separately 
from Lahey Computer Systems. 
Author’s Note: I want to thank every- 
one on the Lahey technical staff for their 
assistance while preparing this article. 


Availability 

All source code for articles in this issue 
is available on a single disk. To order, 
send $14.95 (Calif. residents add sales 
tax) to Dr. Dobb’s Journal, 501 Galves- 
ton Dr., Redwood City, CA 94063, or 
call 800-356-2002 (from inside Calif.) 
or 800-533-4372 (from outside Calif.). 
Please specify the issue number and 
format (MS-DOS, Macintosh, Kaypro). 
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Designed to blow the 
doors off the hybrid languages 
of the programming world. 
Smalltalk/V does prototyp- 
ing the same way Shelby 
prototyped the Cobra... 
using a blend of technical 
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“Anyone can build a prototype by the 











by the Seat ot your pants.” — CARROLL SHELBY 


pants sawvy that’s startlingly sophis- 
ticated. First you doodle, design, 


dream. Then you explore the pos- 


sibilities and begin to assemble the 
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prototype. You test. You tinker. You 
change. And you keep on changing 
and test-driving and refining until 
the prototype is just the way it was 
meant to be. With no 


compromises... of 





any kind. But the 





most remarkable 


thing is this proto- 






type is not just a pro- 





totype. It runs, it 





races, it performs like 






the real application. 
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application. And you 
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Shelby Cobra 


achieve this feat without once hav- 
ing to go through the old “crash 
and burn” kind of programming so 
common with languages born in 
the age of mainframes. 
COMPLEXITY CONTROL FOR 
THE 1990s AND BEYOND. 

The concept behind an object-ori- 
ented programming system is rela- 
tively simple. You build more 
complex objects out of simpler 
ones. Much as you can build com- 
plicated designs with a Lego set. 
With Smalltalk/V a programmer 


can write a piece of code and then 

















book. But you create a legend 





reuse it again and again. The “in- 
heritance” factor lets you create, 
enhance and refine your applica- 
tions without constantly having to 
re-invent the wheel. Or, as one 


“With 


programmer put it, 





tures, too. The Class 
Hierarchy Browser, 
Inspector, Debugger, 
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Does a lot of your work involve 
prototyping/exploratory program- 
ming? 

Are many of your problems difficult 
to define? 

Are external factors constantly 
changing? 


Do you like to make changes from 


insights gathered along the way? 


Do you feel torn between efficiency 
and conceptual clarity? 


Are you developing for Multi- 
Finder or Presentation Manager? 


Are you tired of needless crashing? 


Are team projects getting harder to 
manage and complete on time? 
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Has your creativity been intimi- 
dated by the rigorous demands of 
the process? 





With Smalltalk/V Smalltalk/V you can 
your mouse becomes a 

hot programming write a fugue without 
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Mac or your PC. having to build the 
You'll find that 

Smalltalk/V is souped piano.” 

up with lots of other 

high performance fea~ (Oops! LOOK WHAT 


THE WORLD IS 
COMING TO. 


Class Browser, 7 

Method Browser and The software of the 
Walkback window 

are all standard futur ec, OOP promises 
equipment. 


not only to boost pro- 
grammer productivity but also put 
powerful computing capabilities in 
the hands of non-techies.” 


—Business Week 
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“Traditional computer languages 
and interfaces with their structure 
and detail, have appealed to those 
of us who are left-brained (more 
logical and analytical). On the 
other hand, object-oriented lan- 
guages and interfaces, with their 
emphasis on perception and the 
whole picture, invite those of us 
who are_ right- 
brained (more artistic 
and intuitive) to join 
the computer revolu- 
tion as well.” 
—Byte 
“Object-oriented programming 1s 
the key to the next great transition 
in personal computing.” 


—NY Times 


AT THESE PRICES IT’S 
CERTAINLY NOT MONEY 
THAT’S HOLDING YOU BACK. 


Smalltalk/V 
(DOS 512K RAM) 


Smalltalk/V 286 
(286 or 386 1.5 MB RAM) 


Smalltalk/V Mac 
(Plus, SE, II 1.5 MB RAM) 


$99.95 


199.95 


199.95 


Smalltalk/V. A product of Digitalk 
Inc., 9841 Airport Blvd., Los Angeles, 
CA 90045. For information or to find 
a dealer near you call: 


1-800-922-8255 


1-213-645-1082 
CompuServe 71361,1636 


MultiFinder is a trademark of Apple Computer. 
Smalltalk/V is a registered trademark of Digitalk Inc. Faas 
Prices subject to change without notice. 
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Its possible with PostScript and C 





CX files have become somewhat 

of a standard these days. Devel- 

oped by ZSoft (Marietta, Geor- 

gia) for use with their PC Paint- 

brush graphics editor, PCX is a 
reasonably compact, yet simple, method 
of storing graphics data. The PCX file 
format gained popularity because PC 
Paintbrush was packaged with the Mi- 
crosoft Mouse, and most mouse users 
tinkered with it. Nowadays, it seems 
most scanners, fax boards, and desk- 
top publishing systems process PCX 
files. I found, however, that I had no 
handy way of printing these images 
on a PostScript printer except by read- 
ing them into Lotus Manuscript first, 
which wasn’t always convenient (par- 
ticularly when the image came from a 
fax card). 

PostScript, on the other hand, is a 
page-definition language (PDL), a pro- 
gramming language enhanced with a 
set of operators that allow the specifi- 
cation of marks on a page, including 
images, line-drawing, and text. It is a 
stack-oriented language whose most 
salient (and interesting) feature is that 
it can be read and processed in linear 
order, without ever backing up. This 


Kent ts a free-lance writer and presi- 
dent of Totel Systems, Inc., a company 
that develops device drivers, custom 
software, and embedded systems. Kent 
can be reached at 489 Groton kd. 
Westford, MA 01886 or on BIX or MCT 
Mail as kquirk. 


30 


Kent Quirk 


makes it ideal for use in a printer, which 
typically has a unidirectional connec- 
tion to a computer. PostScript is prob- 
ably the most powerful way currently 
available for specifying the description 
of an output page in a printer. 

The problem with PostScript is that 
everything a printer does has to be 
written in PostScript. You can’t send it 
straight text (PrintScreen doesn’t work 
at all), and you certainly can’t send it 
an image without working pretty hard. 

So how do you print an image in 
PostScript? Using the image operator 
is most common. This function takes a 
stream of data and converts it to a 
rectangular bitmap of arbitrary size, with 
1, 2, 4, or 8 bits per pixel. But PostScript 
can’t accept binary data Cit reserves and 
traps certain ASCII control characters), 
so all its input must be converted to 
hex or some other printable form, which 
then has to have PostScript code added 
to it to make it print. 

In the course of my work, I needed 
a program to perform a PCX-to-Post- 
Script translation. Because C is my lan- 
guage of choice for most projects, I 
decided to write the program, PRPCX, 
in C. In the process of writing PRPCX, 
I learned a lot about PCX files and 
imaging in PostScript, and codified some 
of my thinking about C. 


C Idioms 

In my seven years of programming in 
C, I’ve developed certain idioms — com- 
mon bits of code which fairly type them- 
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selves into the program. These are not 
subroutines or include files; they are 
more like mental templates that guide 
the generation of code specific to the 
application I’m working on. I find that 
good C programmers tend to develop 
many such idioms, perhaps in self. 
defense. : 

Because of the expressive power of 
C, there are usually several different 
ways to perform a given task. C has 
been accused of being a write-only 
language. I feel this is true only for 
programmers who fail to develop and 
follow the particular idioms of the lan- 
guage. C can be written (badly) to look 
like Pascal or any of a number of other 
languages. A good programmer learns 
and develops a “C-ish” programming 
style, that becomes a standard code 
that requires little effort to write or un- 
derstand. A classic example is the tradi- 
tional counting loop: 


for (i=0; i<last; i++) 
do_something( ); 


I’ve developed larger idioms as well, sev- 
eral of which appear in this program. 
The first problem in writing the trans- 
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lation is developing a set of tools for 
reading and manipulating the PCX files. 
The two files PCX.C (Listing One, page 
105) and PCX.H (Listing Two, page 106) 
provide enough facilities to read PCX 
files, but not to create them. They are 
written for generality and clarity, not 
efficiency. Application of better buffer- 
ing or converting the data to final form 
on the fly, could speed up the process 
greatly, but would complicate matters 
unnecessarily for our purposes. Michael 
Swaine would point out a Programming 
Paradigm: First get it right, then get it 
fast. Although there are exceptions to 
any rule, it certainly applies in this case. 


PCX File Characteristics 

A PCX file has a 128-byte header that 
describes the contents of the rest of the 
file. ZSoft has not been lazy — there 
have been at least five versions of PC 
Paintbrush, and PCX files have changed 
to keep up. What’s good is that the same 
header format applies to all PCX versions 
to date. What’s bad is that the data for- 
mats that follow the header vary wildly — 
unfortunately for portability, PCX files 
are tied fairly closely to the video board 
on which they were created. 





Some video boards (such as the EGA 
and VGA in certain modes) arrange 
their memory in the form of bit planes. 
This is a way of looking at graphics 
memory three-dimensionally. The x and 
y dimensions define an array of bits 
that corresponds to the dimensions of 
the video display. The z axis defines 
the number of bits per pixel for the 
video board. One pixel is spread among 
several different memory banks. Pro- 
vided you have the help of a graphics 
controller, this memory organization 
allows for great flexibility in graphics 
processing. 

In the PCX format, if the video board 
uses bit planes, the data is stored in bit 
plane form. One pixel is stored across 
multiple bytes of data. Rearranging these 
bit planes into single-pixel values, then 
cross-referencing them so they can be 
printed sensibly on a monochrome 
printer might be an interesting exer- 
cise, but is beyond the scope of this 
article. 

Monochrome boards (or mono- 
chrome modes on color boards) just 
store the data as a stream of bits. Since 
the printer is monochrome anyway, I 
chose to limit PRPCX to using only files 
created in monochrome mode. 

The first routine (pcx_read_header) 
reads the PCX header into a data area. 
It allocates a data area if one is not 
specified. Here’s the first idiom: When 
passing a pointer to a structure as an 
argument to a subroutine, I take a NULL 
pointer to mean that the user is re- 
questing automatic allocation of the 
data area. 

The pcx_header fields include infor- 
mation on the version of PCX used to 
create the file, the data compression 
method (only RLE is supported to date), 
and the number of bits per pixel in the 
image. The PCX file defines a rectangle 
of data which always contains an even 
number of bytes per line and a number 
of lines that is a multiple of eight. The 
upper-left and lower-right parameters 
define the actual size and position of 
the image data within that rectangle. If 
the video board uses a palette, it is 
stored in the palette area if it fits (it fits 
for up to 16 colors). If it doesn’t fit, it 
is stored at the end of the file, with the 
type of palette indicated by paletteinfo. 

The print_pcx_header function prints 
the data to a given file in user-readable 
form. For someone trying to use sizing 
and scaling to position an image, this 
can be helpful. 

I broke out the pcx_alloc_line( ) rou- 
tine because it might be desirable to 
call it individually in the case where 
you want to build an array of data lines 
for faster response or for image editing. 

The pcx_next_line( ) function is the 
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Commenting Disassembler! 


@ SEE HOW PROGRAMS WORK 
@ EASILY MODIFY PROGRAMS 


SOURCER™ creates detailed commented source code and listings from memory 
and executable files. Built in data analyzer and simulator resolves data across 
multiple segments and provides detailed comments on interrupts and subfunctions, 
I/O ports and much more. Determines necessary assembler directives for reassem- 
bly. Includes a definition file facility to include your own remarks and descriptive 
labels, force data types, and more. Complete support for 8088/87 through 80286/287 
and V20/V30 instruction sets. We welcome comparisons with any other product, 
because no product comes close to the ease of use and output clarity of SOURCER. 


Sourcer is the best disassembler we’ve ever seen! 
—PC Magazine, January 17, 1989, page 101 


ResetPRN v1.01 


SAMPLE resetprn. Ist Sourcer Listing 28-Jun-89 2:34 pm Page 1 
OUTPUT 
RESETPRN 
Fully . : 15-Apr-88 
automatic Analysis Flags on: H 
Program 
; (0040:0008-378h 
header 
segment para public 
Assembler assume cs:seg_a, ds:seg_a, ss:stack seg b 
directives oe 
EB 23 jmp short loc 1 
52 65 73 65 74 50 db "ResetPRN v1.01', ODh 
52 4 20 76 31 2E 
Determines —— - 
00 OA 52 65 73 65 ODh, OAh, ‘Reset Printer? $' 
data areas 74 20 50 72 69 6E 
and type 74 65 72 3F 20 24 
0€ cs 
. lf ds 
Detailed BA 0013 dx,offset data 3 ; (658E:0013-00h) 
B4 09 ah,9 
comments cD 21 ; DOS Services ahefunction 09h 
; display char string at ds:dx 
B4 01 
CD 21 ; DOS Services ah=function 01h 
¢ get keybd char al, with echo 
3C 79 : ty’ 
75 16 e ; Jump if not equal 
BE 1E 0011 ds data 2 ; (658E :0011=40h) 
Suter 8B 16 oon dx.desdite_te ; (0040:0008-378h) 
83 C2 0 ‘ 
BO 08 
follows EE ; port 37Ah, printer-2 control 
: al=- 8, i li 
segment al = 8, initialize printer 
changes ; Loop if cx > 0 
; port 37Ah, printer-2 contro] 
: al = OCh, init & strobe off 
: sh 
; DOS Services ah=function 4Ch 
Easy to : coraiunte with al-return code 
read 
format 


stack seg b ---- 
para stack 
192 dup (OFFh) 
Stack seg b 


start 





(Source code output and inline cross reference can also be selected) 
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descriptive labels such as “video_mode” and much more. Fully automatic. 





SOURCER Commenting disassembler $99.95 | UNPACKER™ Unpack packed EXE files and more $39.95 
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POSTSCRIPT 


key to the whole process. It reads the 
next line from the PCX file and returns 
it, in unpacked raw data form, to the 
caller. Understanding it requires an un- 
derstanding of the PCX file format and 
its method of data compression. 

PCX files use run length encoding 
(RLE) for compression — basically, any 
consecutive data bytes which have the 
same value are replaced by a count 
byte followed by the value. Count bytes 
are distinguished from data bytes by 
setting the top two bits; the bottom six 
bits represent the number of repeti- 
tions, from 0 to 63. If a data byte needs 
to use a value with data in this range, 
it can do so by specifying a repeat 
count of 1. 

RLE is sometimes an excellent way 
to store image data, especially if (like 
most pictures generated with PC Paint- 
brush) the image contains large areas 
of solid colors. However, on random 
data or gray scale images, where there 
are few repeated data bytes, the PCX 
format is likely to be some 25 percent 
larger than raw data size because of the 
escape code necessary for data bytes 
with the top two bits set. For more 
information on RLE, see “Run Length 
Encoding” by Robert Zigon (DDjJ, Feb- 
ruary 1989) and “RLE Revisited” by Phil 
Daley (DDJ, May 1989). 

The file PRPCX.C (Listing Three, page 
106) contains the rest of the code while 
Listing Four (page 108) is the Make file. 
The general flow is to first initialize the 
map structure to default values. This 
structure is used to contain the scaling 
and positioning data for placing the 
PCX image on the PostScript page. Next, 
process the command line and set up 
the values for scaling and sizing. The 
PS file is then copied to the output. 
The scaling and sizing variables are 
emitted, and finally the .PCX file is read 
and emitted as hex data. 

The command line parser is another 
idiom that just flies from my fingertips 
whenever I need it. Basically, it’s a 
simple checker that looks for a leading 
hyphen (-) or slash (/) in each argu- 
ment. If it sees either one, it does a 
switch on the second character. Matches 
generate either string assignments or a 
conversion, as in x = atoi(argvli]+2);. 

If no leading slash is seen, assume 
that the argument is a filename and 
assign the filename variable to it. This 
is easy, but limits the program to one 
filename per run. Because there are 
good reasons not to generate more than 
one image per PostScript file, this isn’t 
really a problem. 

I've used this command line parser 
so often that it just writes itself, with 
no concentration required to make it 

(continued on page 33) 
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Now it's possible to do just about anything you can 


think of, faster than you can think. 


Introducing the COMPAQ DESKPRO 386/33 
Personal Computer. Never before has so much 


CPU-intensive applications over 25-MHz 386 
cache-based PC's. 

Or said another way, nothing will slow you 
down. No matter what you want to do. 


performance, expand- You can expand 

ability and storage the 2 MB of standard 

been put into one | | \ | | RODUCING RAM up to 16 MB 

desktop PC. And using the high-speed 

never before has one 32-bit slot. That leaves 

PC been capable of THE COMPAO up to six industry- 

so much standard slots free 
nade its new DESK PRO ‘38 6 / ‘33 to customize the 

system unit, you'll system to the 

find that our engineers demands of 


have redesigned just about every component to 
deliver a minicomputer level of power with 


unmatched PC flexibility. 











loo 


management 


and other 
personal 

A total of os 
eight expansion slots productivity 
let you customize the system 1eati 
to your needs by expanding applications. 
memory and choosing from Or you 
thousands of industry- 
standard expansion boards. Can spread 


the power around, using the COMPAQ 
DESKPRO 386/33 as the driving force 
for a network or multiuser system. 

At the heart of the system is the 
Intel 386™ microprocessor. Running at 
a blazing 33 MHz, it works in concert 
with a series of technological advance- 
ments. Like a 33-MHz cache memory 
controller with 64K of high-speed 
static RAM. Interleaved memory archi- 
tecture. And the exclusive COMPAQ 
Flexible Advanced Systems Architecture. 


This high-performance combination 
delivers a 35% performance improvement in 


So you can use it as a stand-alone 
PC, putting its power to 

m= work on the most 

demanding CAD/CAE, 


financial analysis, 















the application you're using. 
If your job is particularly 
demanding, you can use up to 
five high-performance inter- 
nal storage devices to hold up 
to 1.3 gigabytes of data. And 


if that's not enough, bring 
total system Built-in 
stor age to 2.6 make it easy to eee 
gigabytes with peripherals without using 
the optional an expansion slot. 


COMPAQ Fixed Disk Expansion Unit. 

There's more. You can run MS-DOS”, 
MS? OS/2, Microsoft® Windows/386 
and the XENIX® and UNIX” operating 
systems. Access memory over 640K 
under DOS with the COMPAQ 
Expanded Memory Manager that sup- 
ports Lotus/Intel°/Microsoft (LIM) 4.0. 
And speed through calculations with 
33-MHz Intel 387™ and Weitek 3167 
coprocessor options. 

All the new advancements engi- 
neered into the COMPAQ DESKPRO 
386/33 deliver an unmatched level of 
power, expandability and storage. 

To do anything you want. 
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High-speed VGA graphics 
are built in. And for greater 
graphics capabilities, add the 
optional COMPAQ Advanced 
Graphics 1024 Board. 
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IN 386 PERSONAL COMPUTING, 
YOU'RE LOOKING AT 
THE MOST WANTED LIST. 


In 1986, Compaq introduced the world to personal 
computers based on the 386 microprocessor. 

since then, we've made it possible for every 
level of user to work with this powerful technol- 
ogy. In fact, more people work with COMPAQ 
386-based PC's than any other 386's worldwide. 

Today, Compag offers the broadest line of 
these high-performance personal computers. 
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different users. And each is built to the highest 
standards for compatibility and reliability. 
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(continued from page 32) 

work. Although it’s not as flexible as a 
general-purpose parsing subroutine, it’s 
small, fast and easy. Only rarely have I 
had to get more sophisticated. 

Normally, this program sends its out- 
put to STDOUT, so it can be piped to 
a disk file, another filter, or directed to 
the printer. Direct to the printer, how- 
ever, may be the most commonly used 
form. Because people’s printers don’t 
change names, it made sense to allow 
the user to put the printer name in the 
environment. Once set, it stays set until 
a reboot or it is explicitly changed. This 
is ideal for a utility likely to use the 
same arguments over and over. Those 
of you who prefer to use the command 
line can redirect the output, or use the 
—o switch (which makes the most sense 
in batch files). 

If no arguments are specified, there’s 
nothing to do, so a usage message is 
printed. This too is important. I believe 
that a user should always be able to 
figure out something about what the 
program does and how to get started 
without having to read the manual (or 
the article). Now that everything is set 
up, the program calls dofile( ), which 
does the rest of the job. 


The first function dofile() does is 
open the PCX file. Another idiom: If 
the filename doesn’t contain a period, 
concatenate .PCX to the end of the 
name. This way the user doesn’t have 
to type the obvious, but can override 
any assumptions. 


Because of the 
expressive power of C, 
there are usually several 
different ways to 
perform a given task 


dofile() opens the file, and if the 
user asks for it, dumps the header and 
returns without doing further work. Next 
read the PostScript prologue file. Many 
programmers aren’t aware that the first 
element in the argu array (for DOS 
versions later than 3.0) is a pointer to 
the complete path and filename of the 





program. For earlier versions of DOS, 
the program name is available (put there 
by the compiler), but the path from 
which it is run is not. Use this informa- 
tion to find the prologue file — 
and simply require it to have the same 
path and name as the executable file, 
but with the .PS extension. Again a 
simple rule that doesn’t restrict the user. 


The PostScript Code 

I’m using a fairly standard PostScript 
technique. First, create a prologue file 
PRPCX.PS (Listing Five, page 108) that 
contains PostScript code that defines 
all the functions needed to handle the 
image generation. Copy this file to the 
beginning of the output file. This way, 
the C program doesn’t have to know 
much about PostScript, and an experi- 
enced user can modify the prologue 
to do a different job without having to 
recompile the software. 

The prologue in this case contains 
functions for building the transform ma- 
trix, reading the image data from the 
file, doing scaling and image genera- 
tion, and printing the page after the 
image is complete. 

Adobe (Mountain View, Calif.) has 
defined a comment convention for Post- 
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Script files. Files conforming to the speci- 
fication can be specially handled by 
print servers, or read into desktop pub- 
lishing programs as Encapsulated Post- 
Script (EPS) files. The specification is 
laid out in Adobe’s Red Book, Appen- 
dix C. Basically, minimally conforming 
programs contain information that de- 
fines the fonts used and image size. 
Normally, this information is placed 
at the beginning of the file. However, 
Adobe allowed the instruction (atend) 
to mean that the actual data is found at 
the end of the file. My original inten- 
tion for PRPCX was to place the Bound- 
ingBox item (which describes the bound- 


POSTSCRIPT 


aries of all the black marks on a page) 
at the end of the file. Unfortunately, I 
discovered that Ventura Publisher, in 
violation of the EPS specifications, re- 
quires BoundingBox to be placed at 
the beginning of the file. 

So for ease of programming, PRPCX 
is limited to processing one file at a 
time, and there is a special hack to fill 
in the BoundingBox entry in PRPCX.PS. 
The file is copied to the output until 
it sees the line containing Bounding- 
Box. It then generates a new Bounding- 
Box line based on the header read 
from the data file, and continues with 
the file copy. 
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The calculations used are the same 
as those used by PostScript’s image 
operator, which is capable of scaling 
and flipping bitmaps. The syntax of the 
image operator is as follows: 


width height bpp transform readproc 
image 


For those who don’t know PostScript, 
the first thing to learn is that it’s a 
stack-oriented language. Any operator 
takes its arguments on the stack, so 


PCX is a reasonably 

compact, yet simple, 
method of storing — 

graphics data 


they come before the operator does. 
In this case, the width and height op- 
erators are found deepest on the stack; 
they are the width and height of the 
bitmap in pixels. The bpp operand tells 
the number of bits per pixel in the 
image. 1, 2, 4, and 8 are allowed; this 
program only handles images with 1 
bit per pixel. 

PostScript allows objects of any type 
on the stack. The [] (mark) operators 
define an array, which (like lists in 
Lisp) simply collect everything between 
them into a single object. In the case 
of the transform operand, image ex- 
pects a six-element array containing 
the transform matrix, which is used as 
a multiplier to convert the image into 
the output area. 

Finally, image accepts a procedure 
(again on the stack) which it calls to 
get image data. Each time this proce- 
dure is called it should return a string 
containing image data. When width * 
height data elements have been con- 
sumed, image is finished processing. 
Returning a zero-length string aborts 
image early. Use the readhexstring op- 
erator (see the readproc function in 
PRPCX.PS) to read a hex string of data 
from the input and convert it to binary. 

The Adobe Red Book talks of a con- 
vention that speeds up the generation 
of an image; if the image conversions 
yield one input pixel per device pixel, 
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Why canit mainirames speak English? 


You have to wonder why the 
people who design big computers 
make it so difficult for normal human 
beings to use them. 

Particularly non-technical, 
hastily trained human beings, who 
need to talk to the mainframe from 
their PCs. 

It’s been a serious dilemma. 
Until NOW! 

NOW! is a menu-making, 
macro-writing tool that 
automates the drudge work of 


PC-to-host communication. 

When someone wants to review 
their E-Mail, for instance, all they 
need do is make one menu selection. 


NOW! then takes on the tedious 
job of loading the 3270 software, log- 


NOW! 
PC/HOST AUTOWARE™ 


=Attachmate: 
1-800-426-6283 


IN WASHINGTON STATE 206-644-4010. 
NOW! and Autoware are trademarks of Attachmate Corp., Bellevue, Wa. 
IBM is a registered trademark of International Business Machines Corporation. 
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ging onto the mainframe, and wading 
through the passwords and commands 
to arrive at the E-Mail screen. 

[t’s not hard to see how NOW! 
reduces wasted time, needless stress 
and training costs. 

Nor is it difficult to find out 
more. Simply call or write and we'll 
send you a free demo disk and detailed 
information. 

Allof which, you'll be pleased 
to hear, is written in a language 


called English. 








(continued from page 34) 
all scaling and transforming is turned 
off, for a large increase in speed. The 
default behavior of PRPCX is to gener- 
ate the bitmap at this size. 

Adobe recommends handling the 
transformation in two parts. First, use 
the transform matrix operand (part of 
the image operator) to convert the im- 
age to a 1X1 unit square with the 
image upright. Then use translate and 
scale to move the image to the shape 
and location desired. 

Translating to the unit square is 
slightly complicated by the fact that a 
PostScript is measured from the bot- 
tom of the page, while a PCX image 
starts at the top. Fortunately, the trans- 
form matrix takes care of this neatly. A 
normal transformation to the unit square 
uses the following matrix: 


[width 0 0 height 0 0] 

The transform to invert the Yaxis is: 
[width 0 0 —-height 0 height] 

In PostScript, that last matrix is written: 


[width 0 0 height neg 0 height] 


POSTSCRIPT 


The neg (negate) operator inverts the 
sign of the object on top of the stack 
(which is height, in this case). The next 
step is to convert to device resolution. 
This requires that you first translate 
the coordinate axes to the desired posi- 
tion using standard resolution, which 
is 72 dpi (one point). This way the 
position of the image is independent 
of its size. 

Next, make the image its original 
shape (assuming square pixels). To do 
this, scale the unit square to the width 
and height of the image in pixels. Then 
scale the coordinate system to device 
resolution, using the command 


72 res div 72 res div scale 


The scale operator takes two operands, 
the scale factor in X and Y. Divide 72 
by the actual resolution of the device. 
This makes one unit in device space 
equivalent to one unit in user space. 
Finally, to allow the user to change 
the scaling, add one more scale fac- 
tor. All of these transformations take 
place in the scaleit routine within the 
prologue. 

The image operator takes an argu- 
ment which is a procedure to supply it 
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with data. Because the PostScript data 
stream has certain reserved characters, 
use the readhexstring operator to ac- 
cept hex data. This doubles the num- 
ber of bytes sent to the printer, but 
that’s the way it’s generally done; it’s 
certainly the easiest to code. The read- 
hexstring operator fills a string with 
data from the input file. In order to 
ensure that it doesn’t read past the end 
of the file, you have to build a string just 
large enough to hold one line of input. 
The imagedata routine in PRPCX.PS 
contains code to do this. 

Now we start generating PostScript 
code. First define and give values to all 
the variables used by the prologue. 
Then tell PostScript to actually do the 
scaling and translation calculations. Fi- 
nally, tell it to start accepting an image. 

The image is processed by expand- 
ing each line to raw data using the PCX 
routines, inverting it if necessary, then 
emitting the data as a stream of hex 
bytes. Each line of input data is sepa- 
rated by a newline in the output file. 

At the end of the file, emit the code 
to get PostScript to generate the image 
(the single operator showpage), and 
you're done. The grestore operator re- 
stores the image context that existed 
before you started this whole process. 
This is simply good manners; a good 
idea when generating EPS files. 

The result of all this work has been 
the conversion of a PCX file, a useful 
and standard data format for images, 
into PostScript, another useful and stan- 
dard format, with C as the medium of 
exchange. In the process, we’ve learned 
to make efficient use of all three. 


Acknowledgments 

I'd like to thank ZSoft for its booklet 
of information on PCX files, and Laser- 
Go for the use of GoScript, a program 
which allows the use of PostScript code 
with printers that don’t support it in 
native mode. 


Availability 

All source code for articles in this issue 
is available on a single disk. To order, 
send $14.95 (Calif. residents add sales 
tax) to Dr. Dobb’s Journal, 501 Galves- 
ton Dr., Redwood City, CA 94063, or 
call 800-356-2002 (from inside Calif.) 
or 800-533-4372 (from outside Calif.). 
Please specify the issue number and 
format (MS-DOS, Macintosh, Kaypro). 


DDJ 
(Listings begin on page 105.) 


Vote for your favorite feature/article. 
Circle Reader Service No. 3. 


Dr. Dobb’s Journal, August 1989 











NEW: TOPSPEED 


“Everything about this product 
exudes quality...it is one of the 
most complete and powerful devel- 
opment systems available today.” 


Scott Robert Ladd 
Computer Language 


‘*.,. TopSpeed” is surely one of the 
finest new products introduced to 
date in the PC arena...DDJ doesn’t 
give unqualified raves very often, 
but there’s no question about it in 
this case; JPI’s TopSpeed Modula-2 
is first-rate.” 


Kent Porter 
Dr. Dobbs Journal 


“JPI Modula-2 looks like another 
classic in the making. It generates 
code as good as or better than lead- 
ing C compilers and the program- 
ming environment is a genuine 
pleasure to use:’ 


Dick Pountain 
BYTE Magazine 


In England and Europe contact: 

Jensen & Partners UK Ltd., 63 Clerkenwell 
Road, London ECIM SNP. Phone (01)253-4333. 
FAX (01)251-0141. Each Toolkit £49.95* 

DOS Compiler £59.95, TechKit £34.95* 

VID £34.95, DOS 3-Pack £119.95* 

OS/2 Compiler £124.95* (*Prices effective 
through Oct. 1, 1989) 


Handling charges: In UK please phone for 
VAT & P&P. In Europe, add £6 for each com- 
piler and 3-pack; £3 for each toolkit. 








TOOLKITS 






Library Source 


srs Heicen 5 Partners koemcstonat oe hia 


TopSpeed* Modula-2 is a high-speed optimizing compiler 
(3000-5 ,000 lines/min. on a PC AT 8MHzZz), integrated 
menu-driven environment with multi-window/multi-file edi- 
tor, automatic make, fast smart linker. All Modula-2 sources 
to libraries included. Available for DOS or OS/2. 


Communications Toolkit is designed to help you write applications that use 
IBM PC serial port hardware. Features include an interrupt driven low-level 
driver; VT100 and ANSI terminal emulation; XModem, YModem, and 
Kermit support; compiled script language; and full source for all modules. 
The same version supports both DOS and OS/2. 


B-tree Toolkit provides you with the tools you need to write powerful database 
applications. Store multiple tables and indexes in one or more physical files 
(no record count limit; each physical file up to 4 gigabytes). Automatic net- 
work support allows opening of sharable or private physical files and full 
control of file locking. Indexes can be linked to tables so that index updates 
are automatic. The same version supports both DOS and OS/2. 


VID (Visual Interactive Debugger): A source-level, multi-window symbolic 
debugger. (DOS only) 


TechKit": Includes assembler, assembler source for start-up code, TSR 
module, error handlers, communications driver, dynamic overlays, and 
PROM locator. (DOS only) 


System Requirements: IBM PC or compatible, 384K available RAM, two 
floppy drives (hard disk recommended). 





ton 6 Zee SR 

Ee Rote 
BUG Le Sige HE 
aie ee i 


TopSpeed’s seamlessly integrated 
environment. 


5 OS EE, Ss OER CE EW 


| Si he, Ge has toes can ee ee, tr 





Sieve benchmark measured by the 
British Standards Institution (BSI)— 
25 iterations on an 8MHz AT. 


Each Toolkit $79.95* 
DOS Compiler $99.95 
TechKit $59.95* 

VID $59.95 


DOS 3-Pack $199.95* 


(Compiler, TechKit & VID) 


0S/2 Compiler $195.00* 


*Prices effective through 10/1/89 


To Order: 
In the US, call: 


]-800-543-5202 

In Canada, call: 
1-800-543-8452 

Or mail us your order with 

a check, money order, or 
VISA/MC information. 30- 
day unconditional money- 
back guarantee. 


Shipping & handling charges: 

In North America: add $5 for each product 
ordered. CA residents please add applicable 
sales tax. Overseas: Add $20 for EACH com- 
piler and $8 for each other product. 3-pack 

s & his $36.00. 


Jensen & 
Partners 
International 





1101 San Antonio Rd. 
Suite 301 

Mountain View, CA 94043 
Phone: (415)967-3200 


TopSpeed and TechKit are trademarks of Jensen 
& Partners International. Other brand and 
product names are trademarks or registered 
trademarks of their respective holders. 











Building Your Own 


C Interpreter 


Heres the source code for an interpreter of your own 


n this article, I develop a C inter- 

preter that can execute a subset of 

K&R ANSI C. The interpreter not 

only is functional as presented, but 

is designed so that you can easily 
enhance and extend it. In fact, you can 
even add features not found in ANSI C 
if you choose. By the time you finish 
reading this article, you'll have a C in- 
terpreter you can use and enlarge, and 
you will have gained considerable in- 
sight into the structure of the C lan- 
guage itself. 

Although ANSI C has only 32 key- 
words, it is a rich and powerful lan- 
guage. It would, of course, take far 
more than a single article to fully de- 
scribe and implement an interpreter for 
the entire C language. Instead, this C 
interpreter understands a fairly narrow 
subset of the language. Table 1 lists the 
features that are implemented in it. 

In order to simplify and shorten the 
source code to the interpreter, I have 
imposed one small restriction on the C 
grammar: The targets of the if while, 
do, and for must be blocks of code 
surrounded by beginning and ending 
curly braces. You may not use a single 
statement. For example, my interpreter 
will not correctly interpret code in Ex- 
ample 1; instead, you must write code 
like that in Example 2. Because the 
objects of the program control state- 
ments are often blocks of code any- 
way, this restriction does not seem too 
harsh. (With a little effort, though, you 
can remove this restriction.) 


Herb is the author of more than two 
dozen computer books, with topics rang- 
ing from C to Modula-2. This article is 
based on his book Born to Code in C 
(Osborne/McGraw-Hill). He can be 
reached at RR #1, Box 130, Mahomet, 
IL GIS53. 
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Herbert Schildt 


Reducing the Source Code 
to its Components 
To create the C interpreter, we first 
construct the expression evaluator and 
the piece of code that reads and ana- 
lyzes expressions, the expression parser. 
There are several different ways to 
design an expression parser for C. Many 
commercial compilers use a table-driven 
parser that is generally created by a 
parser-generator program. While table- 
driven parsers are usually faster than 
other methods, they are hard to create 
by hand. For this C interpreter I will use 
a recursive-descent parser, which is es- 
sentially a collection of mutually recur- 
sive functions that process an expres- 
sion. If the parser is used in a compiler, 
then its function is to generate the 
proper object code that corresponds 
to the source code. In an interpreter, 
however, the object of the parser is to 
evaluate a given cous 


Parameterized functions with local 
variables _ 


_ Recursion 
Thewstatement = = =. 
‘The do-while, while, and for loops. a 
Integer and character variables: 
Global variables © _ 
_ Integer and character constants | 


String constants (limited as a : 


The return statement, both with and 
withouta value 


A limited number of standard ibrary 
functions. 


These operators: +, -, *, /, %, <> 

<=, >=, ==, I=, unary —, and unary + : 
Functions returning integers _ 
Comments | 


Table 1: Features pronaed by this C 
interpreter 





Fundamental to all interpreters (and 
compilers, for that matter) is a special 
function that reads the source code 
and returns the next logical symbol 
from it. For historical reasons, these 
logical symbols are generally referred 
to as tokens, and computer languages 
in general (and C in particular) define 
programs in terms of tokens. This C 
interpreter categorizes tokens as shown 
in Table 2. The function that returns 
tokens from the source code for the C 
interpreter is called get_token( ) and is 
shown in Listing One (page 110), lines 
313 through 423. The get_token( )func- 
tion uses the global data and enumera- 
tion types in Figure 1. 

The current location in the source 
code is pointed to by prog. The p_buf 
pointer is unchanged by the interpreter 
and always points to the start of the 
program being interpreted. The get_ 
token( ) function begins by skipping 

(continued on page 42) 


ee O; axl0; a=a+1) 
FT 0; pe; 


b=b+1) 
for{c=0 p csl0; cectl) 
“pats ("ai"); 





Example 1: This C interpreter will not 
interpret this code 


2 for(a=0; a<10; a=ati) { 
for(c=0; c<10; c=ctl1) { 


puts ("hi"); 





Example 2: This C interpreter will in- 
terpret this code 
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(continued from page 38) 

over all white space, including carriage 
returns and line feeds. Because no C 
token (except for a quoted string or 
character constant) contains a space, 
spaces must be bypassed. The get_ 
token( ) function also skips over com- 
ments. Next, the string representation 
of each token is placed into token, its 
type (as defined by the tok_types enu- 
meration) is put into token_type, and, 
if the token is a keyword, its internal 
representation is assigned to tokvia the 
look_up() function (shown in the full 
parser listing, Listing One). You can 
see by looking at get_token() that it 
converts C’s two-character relational op- 
erators into their corresponding enu- 
meration value. Although not techni- 
cally necessary, this step makes the 
parser easier to implement. Finally, if 
the parser encounters a syntax error, it 
calls the function sntx_err() with an 
enumerated value that corresponds to 
the type of error found. The svtx_err( ) 
function is also called by other routines 
in the interpreter whenever an error 
occurs. The sntx_err() function is 
shown here in Listing One, lines 274 
through 311. 

The entire code for the C interpreter 
recursive descent parser is shown in 
Listing One (PARSER.C), along with 
some necessary support functions, global 
data, and data types. As listed, this code 
is designed to go into its own file. 

The atom( ) function and the func- 
tions that begin with eval_exp imple- 
ment the production rules for C ex- 
pressions. To verify this, you might 
want to mentally execute the parser 
using a simple expression. 

The atom( ) function finds the value 
of an integer constant or variable, a 
function, or a character constant. The 
two kinds of functions that may be 
present in the source code are user- 
defined or library. If a user-defined func- 
tion is encountered, its code is exe- 
cuted by the interpreter in order to 
determine its value. (The calling of a 
function will be discussed in the next 


_ delimiters punctuation and © 


_ - operators 
| keywords — keywords 
| stigs quoted stings 
: identifiers variable and function 
ores 
_ numeric — : - 
"fon — 


Table 2: “The interpreter’ s token 
categories 


7 number 
| block 
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C INTERPRETER 


section.) If the function is a library func- 
tion, however, then its address is first 
looked up by the internal_func( ) func- 
tion and is then accessed via its inter- 
face function. The library functions and 
the addresses of their interface func- 
tions are held in the internal_func 
array in lines 56 through 73. 


The C Interpreter 

The heart of the C interpreter is devel- 
oped in this section. Before the inter- 
preter can actually start executing a 


The C interpreter 
presented here was 
designed with 
transparency of 
operation in mind 





program, however, a few clerical tasks 
must be performed. Some method must 
be devised to allow execution to begin 
at the right spot, and all global vari- 
ables must be known and accounted 
for before main( ) begins executing. 
It is important, though not technically 
necessary, that the location of each 
function defined in the program be 
known so that a call to a function can 


be as fast as possible. If this step is not 
performed, a lengthy sequential search 
of the source code will be needed to 
find the entry point to a function each 
time it is called. 

The solution to these problems is the 
interpreter prescan. Prescanners (or pre- 
processors, as they are sometimes called, 
though they have little resemblance to 
a C compiler’s preprocessor) are used 
by many commercial interpreters re- 
gardless of what language they are in- 
terpreting. A prescanner reads the 
source code to the program before it 
is executed and performs whatever tasks 
can be done prior to execution. In this 
C interpreter, the prescanner performs 
two important jobs: First, it finds and 
records the location of all user-defined 
functions including main( ). Second, 
it finds and allocates space for all global 
variables. Here, the function that per- 
forms the prescan is called prescan( ) 
and is shown in Listing Two, LITTLEC.C 
(see page 116), lines 190 through 228. 

Global variables are stored in a global 
variable table called global_vars by 
decl_global( ), lines 43 through 50 and 
lines 240 through 253. The integer 
gvar_index (line 76) holds the location 
of the next free element in the array. The 
location of each user-defined function 
is put into the func_table array, shown 
in lines 52 through 55. The func_index 
variable (line 75) holds the index of the 
next free location in the table. 

The mainc( ) function to the C inter- 
preter, shown in lines 92 through 118, 

(continued on page 45) 


char * io. ‘ — to current location in Esouice code a 


char token|80}; / va bolds string teprecertation ‘e token */ 
char token_type; /* contains the type of token */ 
char tok; /* holds the internal representation of token ifitisa keyword y 


enum tok types (DELIMITER, IDENTIFIER, NUMBER, KEYWORD, 


TEMP, STRING, BLOCK}; 


enum double ops fLT=1. LE. GT. GE, EQ NE} 


/* These are the constants used to call sntx _err( ) when a syntax error 


occurs. Add more if you like. - 


NOTE: SYNTAX is a generic error message used when nothing 


else seems appropriate. 
yy 


enum error_msg 


{SYNTAX, UNBAL_PARENS, NO_ EXR EQUALS_ EXPECTED, 
NOT_VAR, PARAM_ERR, SEMI_EXPECTED, 
UNBAL_BRACES, FUNC_UNDEF, TYPE_EXPECTED, | 
NEST_FUNC, RET_NOCALL, PAREN_EXPECTED, 

WHILE EXPECTED, QUOTE _ EXPECTED, NOT_TEMP, 


TOO. MANY. eet 





Figure 1: The get_token( ) function uses the global data and enumeration 


types as shown here 
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When it comes to selecting compilers, 
MetaWare is the right choice! 


Developing the next generation of soft- 
ware products is serious business. You 
need the best tools to produce the best 
code. You need MetaWare. 


Superior Compilers 


A compiler that handles large programs 
with ease, while producing the expected re- 
sults, is the key to developing the highest 
quality applications. Many of MetaWare’s 
customers say that High C ™ and Profes- 
sional Pascal ™ are the highest quality 
compilers in the industry. They are reli- 
able, and well documented, and their super- 
ior diagnostic messages help to produce 
better products more quickly. There are 
no surprises with MetaWare compilers. 


Compiler Features 


¢ ANSI Standard with extensions 

e« Generates small, fast executables 

¢ Support of 80x87, Weitek 1167/3167, 
68881, and Am29027 math co- 
processors 

* Global common subexpression 
elimination 

¢ Live / dead analysis 

¢ Constant propagation, copy propagation 

¢ Tail merging (cross jumping) 


Multiple Platform Support 


To support multiple platforms effec- 
tively you need the same compiler on each, 
eliminating the time and cost of developing 
and maintaining a new version of the prod- 
uct for each platform. MetaWare is the 
only company that provides the same com- 
pilers on a wide variety of platforms and 
operating systems, to both OEMs and End 
Users. 


MetaWare uses its own Translator 
Writing System to create all of its com- 
piler products. Common components and 
library functions are shared across the 
product line. Improvements to compilers 
are immediately realized on all platforms. 


Supported Platforms 
° 386: Extended-DOS/UNIX/XENIX 
¢ PC: DOS/OS2 
¢ Sun-3, Sun 3867 , Sun-4, 
© IBM: AIX/386, AIX/RT, AIX/370 
¢ DEC VAX: VMS (host for cross com- 
pilers and TWS, not native) 
¢ DEC VAX: Ultrix 
¢ AMD 29K (Native/Cross) 
¢ Intel i860 (Native/Cross) 


MetaWare 


MetaWare’s Commitment 


MetaWare’s unique approach to busi- 
ness is its ability and willingness to support 
both OEM and End Users alike. The com- 
mitment to providing quality products 
doesn’t end when you receive your com- 
piler. Technical phone support is provided 
by engineers at a level of expertise con- 
sistent with the quality of MetaWare’s 
products. 


So when it comes to selecting a com- 
piler company, you need the best! 


Can you really afford anything less? 


INCORPORATED 





Compiler Products for 
Professional Software Developers 


2161 Delaware Avenue 

Santa Cruz, CA 95060-5706 
Phone: (408) 429-META (6382) 
FAX: (408) 429-WARE (9273) 


MetaWare, High C and Professional Pascal are trademarks of MetaWare Incorporated; UNIX is a trademark of AT&T; Sun-3, Sun-4, and 386i are trademarks of Sun Microsystems, Inc.; PC-DOS, RT PC, and 
IBM are trademarks of International Business Machines Corporation; 386 and i860 are trademarks of Intel Corporation; DEC, VAX, Ultrix, and VMS are trademarks of Digital Equipment Corporation; XENIX 
is a trademark of Microsoft Corporation; 1167 and 3167 are trademarks of Weitek Corporation; 29K and 29027 are trademarks of Advanced Micro Devices, Inc; 68881 is a trademark of Motorola Corporation. 
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(continued from page 42) 

loads the source code, initializes the 
global variables, calls prescan( ), primes 
the interpreter for the call to main¢ ), 
and then executes call(), which be- 
gins execution of the program. 

The interp_block() function is the 
heart of the interpreter. This function 
decides what action to take based upon 
the next token in the input stream. It is 
designed to interpret one block of code 
and then return. The interp_block( )func- 
tion is shown in lines 119 through 174. 

Ignoring calls to functions like exit( ), 
a program ends when the last curly 
brace (or a return) in main( ) is encoun- 
tered. It does not necessarily end with 
the last line of source code. This is one 
reason that interp_block(_)executes only 
a block of code, and not the entire 
program. Another reason is that, con- 
ceptually, C consists of blocks of code. 
Therefore, interp_block( )is called each 
time a new block of code is encoun- 
tered. This includes both function calls 
and blocks begun by various C state- 
ments, such as an ifblock. This means 
that the interpreter may call interp 
_block() recursively in the process of 
executing a program. 

When the interpreter encounters an 
int or charkeyword, it calls decl_local( ) 
to create storage for a local variable. 





COUNTER PRESLER 


Each time a local variable is encoun- 
tered, its name, type, and value (in- 
itially zero) are pushed onto the stack 
using local_push( ). The global vari- 
able /vartos indexes the stack. (There 
is no corresponding “pop” function. 
Instead, the local variable stack is reset 
each time a function returns.) The 
decl_local and local_push( ) functions 
are shown in lines 254 through 353. 

All function calls (except the initial 
call to mainc )) take place through the 
expression parser from the atom( ) func- 
tion by a call to callc ). It is the call) 
function that actually handles the de- 
tails of calling a function. The call() 
function is shown in Listing Two, lines 
269 through 337, along with two sup- 
port functions. 


int count; 
main () 


{ 


int count; 
count = LOU; 


int count; 
count = 99; 


Example 3: Assigning values to a 


variable 


Let’s return to the expression parser 
for a moment. When an assignment 
statement is encountered, the value of 
the right side of the expression is com- 
puted and assigned to the variable on 
the left using a call to assign( ). Given 
a program like the one in Example 3, 
how does the assign( ) function know 
which variable is being assigned a value 
in each assignment? The answer is sim- 
ple: First, in C, local variables take pri- 
ority over global variables of the same 
name. Second, local variables are not 
known outside their own function. To 
see how we can use these rules to 
resolve the above assignments, exam- 
ine the assign() function shown in 
lines 369 through 388. 


Executing Statements and Loops 
Now that the basic structure of the C 
interpreter is in place, it is time to add 
some control statements. Each time a 
keyword statement is encountered in- 
side of interp_block( ), an appropriate 
function is called, which processes that 
statement. One of the easiest is the if 
The ifstatement is processed by exec_ 
if( ), shown in lines 419 through 438. 
Like the if it is easy to interpret a 
while loop. The function that actually 
performs this task is called exec_while( ) 
and is shown in lines 439 through 454. 
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Designed for the IBM®PC, PC-AT and 
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Norton Computing, Inc., 2210 Wilshire 
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When professional FORTRAN programmers develop or port 
large programs they use Lahey’s F77L-EM/32 and F77L-EM/16, 
PC Magazine’s 1988 Technical Excellence Award Winners. 
F77L-EM/32 is a fast 32-bit protected-mode compiler that 
accesses up to 4 gigabytes of memory on 80386s. F77L-EM/16 
gives 80286 users the power to create 15 megabyte programs. 
These protected-mode FORTRANS include the features that 
have made them, and our F77L and Lahey Personal 
FORTRAN, market leaders: full ANSI 77 Standard, VAX and 
IBM VS extensions, fast compilation, comprehensive 
diagnostics, and a powerful debugger. 


When people talk about FORTRAN 
the name mentioned most often is 





| COMPILERS! LANGUAGES 
F77L-EM/16 AND 
F77L-EM/32 
LAHEY COMPUTER 
SYSTEMS, INC 


1988__ 


Computer Systems Inc Af 


Contact us to discuss our products and your needs. (800) 548-4778 
Lahey Computer Systems, Inc. P.O. Box 6091, Incline Village, NV 89450 
Tel: (702) 831-2500 FAX: (702) 831-8123 Tlx: 9102401256 
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C INTERPRETER 


A do/while loop is processed much 
like the while. When interp_block( ) 
encounters a do statement, it calls evec_ 
do( ), shown in lines 455 through 469. 

The main difference between the do/ 
while and the while loops is that the 
do/while always executes its block of 
code at least once because the condi- 
tional expression is at the bottom of 
the loop. Therefore, exec_do( ) first 
saves the location of the top of the loop 
into temp and then calls interp_block¢ ), 
recursively, to interpret the block of 


This interpreter is 
designed so that you 
can easily enhance and 
extend it 


code associated with the loop. When 
interp_block( ) returns, the correspond- 
ing while is retrieved and the condi- 
tional expression is evaluated. If the 
condition is true, prog is reset to the 
top of the loop; otherwise, execution 
continues. 

The interpretation of the for loop 
poses a more difficult challenge than 
the other constructs. This is partly be- 
cause the structure of the C for is defi- 
nitely designed with compilation in 
mind. The main trouble is that the con- 
ditional expression of the for must be 
checked at the top of the loop, but the 
increment portion occurs at the bottom 
of the loop. Therefore, even though 
these two pieces of the for loop occur 
next to each other in the source code, 
their interpretation is separated by the 
block of code being iterated. With a 
little work, however, the for can be 
correctly interpreted. 

When interp_block( )encounters a for 
statement, exvec_ fort )is called. This func- 
tion is shown in lines 482 through 514. 


Library Functions 
Because the C programs executed by 
the interpreter are never compiled and 
linked, any library routines they use 
must be handled directly by the inter- 
preter. The best way to do this is to 
create an interface function, which the 
C interpreter calls when a library func- 
tion is encountered. This interface func- 
tion sets up the call to the library func- 
tion and handles any return values. 
Due to space limitations, the inter- 
preter contains only five library func- 
tions: getche( ), putch( ), puts( ), print( ), 
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Lattice. 


The Leader in Performance 


Lattice C 6.0 for DOS and OS/2 is 
the fastest compiler overall on 
the eight PC Magazine bench- 
marks* in both large and small 
model. Lattice C is over 10% 
faster than Microsoft 5.1 and over 


15% fasterthan Borland2.0. These 4%) 


results are due to our new op- 
timizer and the many perform- 
anceimprovements in the library. 
You can make your applications 
run even faster by using our new 
register variable support and 
built-in functions. Lattice 6.0 is the 


performance leader. 10 


The Leader in Compatibility 


Lattice C is fully compliant with 
the ANSI standard. We pass not 
only the Computer Language ANSI 
Test Suite but 100% of the 
Plum Hall Test Suite Version 1.09. 
Lattice is the compatibility leader. 


The Leader in Debugging 


Lattice C includes CodePRobe™, a 
new full-screen symbolic debugger 
for DOS and OS/2. CodePRobe has 
the familiar look of the CodeView, 
and can be used witha mouse. It also 
enables you to easily debug family 
mode programs, Presentation Man- 
ager applications, and OS/2 mul- 
tithread applications. And, for those 
humongous programs and system 
killer bugs, CodePRobe can be used 
remotely froma different PC. Lattice 
is the leader in debugging. 


The Leader in Innovation 


Lattice has long supported popular 
language extensions suchas near, far, 
and pascal. In our previous version, 
we introduced align, chip, volatile, 
interrupt, nopad, and pad to handle 
important memory management 
problems in DOS, OS/2, and embed- 
ded systems. Version 6 continues 
this evolution with critical and 
private. Critical defines a function 
that must run as a critical section, 
and private defines data that must be 
replicated for each execution thread. 
Future versions will continue to 
improve the language for use in 
cutting-edge environments such as 
OS/2 and AmigaDOS. Lattice is the 
innovation leader. 
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The Leader in OS/2 


Lattice C includes bindings and 
header files so that you do not need 
to buy an expensive OS/2 develop- 
ment kit. The library also supports 
multithread programming with no 
built-in limits to the number of 
threads. The Lattice linker, librarian, 
editor, debugger and utilities run in 
DOS, OS/2 and family mode. Lattice 
is the OS/2 leader. 


The Leader in Productivity 


The Lattice C Development System 
now includes the utilities that 
our customers-professional C pro- 
grammers-—use most often. Of course, 
the system is based upon our C com- 
eae editor, linker, librarian, and de- 


ugger. In addition, we now include 


our powerful project maintenance 
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Lattice 


Professional Programming Tools Since 1981 
2500 S. Highland Avenue, Lombard, IL 60148 





k on Top! 


tool Imk, which is an advanced 
version of the UNIX make utility. 
Build, diff, extract, file, splat, touch, 
and we enable you to easily main- 
tain your source files, and cxref 
produces comprehensive cross- 
reference reports. Lbind produces 
family-mode executables that can 
run under both DOS and OS/2. 
Lattice is the productivity leader. 


The Leader in Libraries 


Our library has often been praised 
for its comprehensive and sophis- 
ticated features. Now we include 
graphics, communications, and 
curses libraries. The communica- 
tions library Saag XMODEM, 
YMODEM, KERMIT and ASCII 
protocols. The Males library 
provides a graphic windowing 
model. Curses provides a UNIX 
compatible screen manager. 
Lattice is the library leader. 


The Leader in Convenience 


Lattice C uses an automated installa- 
tion procedure that has been praised 
by reviewers. The compiler automati- 
cally configures itself so that you do 
not need to specify complicated 
options. Yet, a full set of options is 
available to the professional who 
needs to customize to a particular 
environment. Lattice is the conven- 
ience leader. 


The Leader in Documentation 


Lattice C includes over 1500 pages of 
high quality documentation in ring 
binders. It contains all the informa- 
tion that professional programmers 
need ina thoroughly indexed format. 
Lattice is the documentation leader. 


The Leader in Support 

Best of all, Lattice support comes free 
with Lattice C. Lattice’s bulletin 
board and telephone support are the 
best in the business. Lattice is the 
support leader. 


30 Day Money Back Guarantee 
Lattice C 6.0 is available for $250. To 
order, send check or money order to: 
Lattice, Inc., 2500 S. Highland Ave- 
nue, Suite 300, Lombard, IL 60148. 
Or order by credit card at (800) 444- 
4309. FAX # (312) 916-1190, TELEX 
532255. 


*Send to Lattice for a free complete report on the benchmark analysis. 
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Portable C 


Do you program on the run? 
Are you tired of lugging many diskettes worth of 


compiler and linker utilities? 


Are you irritated by the grind of diskettes at 40,000 


feet up? 
Do you get annoyed waiting for your linker? 


Have you considered an interpreter? 


Have you considered ... 


C-terp 


With the C-terp interpreter you get a modern C 
development environment that Byte magazine 
calls "closest to the ideal". C-terp has been 
carefully engineered to fit within a 180K 
executable. Link in all the Microsoft library and 
your executable is still only 210K. 


This executable includes a semi-compiler with 
full ANSI/Microsoft C compatibility, an internal 
linker, an interpreter, a full-featured debugger, 
an auto-make facility, a grep facility, and a multi- 
file editor that is so fast and convenient that you 
will soon use it for all your development. All 
action takes place in the peace and quiet of high 
speed RAM, no overlays. You can now utilize 
your 80386 to the max. 


C-terp is not a toy. Link in your favorite libraries 
(large model) and access your hardware directly. 
For even greater speed and storage economy, 
compile and link in the debugged sections of 
your application. Out of memory? Use our 
virtual memory option to access expanded or 
extended memory. 


Enjoy the benefits of interpretive execution 
ranging from stray pointer checking through 
support for macros at debug time to locating all 
occurrences of a particular identifier within all 
header files and modules. Even Bill Gates says: 


“There’s nothing like an interpreter.” 
2 
Gimpel Software 
3207 Hogarth Lane Collegeville PA 19426 


(215) 584-4261 
CALL TODAY 


Only $298 for MS-DOS, $398 for UNIX 286/386 
30 Day Money-back Guarantee 





Quantity and educational discounts available. PA add 6% 
sales tax. Outside USA add $20. C-terp is a trademark of 
Gimpel Software. Microsoft and MS-DOS are trademarks of 
Microsoft Corp. UNIX is a trademark of AT&T. 
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(continued from page 40) 

and getnum( ). Of these, only puts() 
is described by the ANSI standard, and 
it outputs a string to the screen. The 
putch( ) function is a common exten- 
sion to C for interactive environments. 
It waits for and returns a key struck at 
the keyboard. Unlike most implemen- 
tations of putchar( ) it does not line- 
buffer input. This function is found in 
many compilers, such as Turbo C, 
QuickC, and Lattice C. The putch( ) is 
also defined by many compilers de- 
signed for use in an interactive envi- 
ronment. It outputs a single character 
argument to the console and does not 
buffer output. 

The functions getnum( )and print( ) 
are my Own creations. The getnum( ) 
function returns the integer equivalent 
of a number entered at the keyboard. 
The print() function is a handy func- 
tion that can output either a string or 
an integer argument to the screen. It is 
an example of a function that would 
be difficult to implement in a compiled 
environment, but is easy to create for 
an interpreted one. The five library func- 
tions are shown in Table 3 in their 
prototype forms. The C interpreter li- 
brary routines are listed in Listing Three 
(LCLIB.C), page 120. 

To add additional library functions, 
first enter their names and addresses 
of their interface functions into the in- 
ternal_func( ) array. Next, following 
the lead of the functions shown here, 
create appropriate interface functions. 


Compiling and Linking the C Interpreter 
Once you have compiled all three files 
that make up this interpreter, compile 
and link them together. If you use Turbo 
C, you can use a sequence like this: 


tcc -c parser.c 
tcc -c Iclib.c 
tcc littlec.c parser.obj Iclib.obj 


If you use Microsoft C, use this sequence: 


cl -c parser.c 
cl -c Iclib.c 
cl littlec.c parser.obj Iclib.obj 


If you use a different C compiler, fol- 
low the instructions that come with it. 

The program in Listing Four (page 
121) demonstrates the various features 
of my C. 


Improving and Expanding 

the C Interpreter 

The C interpreter presented here was 
designed with transparency of opera- 
tion in mind. The goal was to develop 
an interpreter that could be easily un- 
derstood with the least amount of ef- 
fort, and to design it so that it could be 
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easily expanded. As such, the interpreter 
is not particularly fast or efficient. The 
basic structure of the interpreter is cor- 
rect, however, and you can increase its 
speed of execution in the following ways. 

One potential improvement is with 
the lookup routines for variables and 
functions. Even if you convert these 
items into integer tokens, the current 
approach to searching for them relies 
upon a sequential search. You could, 
however, substitute some other, faster 
method, such as a binary tree or some 
sort of hashing method. 

Two general areas in which you can 
expand and enhance the C interpreter 
are C features and ancillary features. 
Among the C statements you can add 
to the interpreter are additional action 
statements, such as the switch, the goto, 
and the break and continue statements. 





int getche(void); 

int putch(char ch); 

int puts(char “s); 

int getnum(void); 

int print(char *s); 
or 

int print(int 1); 





Table 3: The five library functions 
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/* read a character from keyboard and return its value */ 
/* write a character to the screen */ 
/*writeastringtothescreen*/ 

/* read an integer from the keyboard and return its value */ 
/* write astringtothe screen*/ | 


/* write an integer to the screen */  . 


Another type of C statement you can 
add is new data types. The interpreter 
already contains the basic hooks for 
additional data types. For example, the 
var_type structure already contains a 
field for the type of variable. To add 
other elementary types (that is, float, 
double, long), increase the size of the 
value field to the size of the largest 
element you wish to hold. 

Supporting pointers is no harder than 
supporting any other data type; how- 
ever, you will need to add support for 
the pointer operators to the expression 
parser. This will involve some look- 
ahead. Once you have implemented 
pointers, arrays will be easy. The space 
of an array should be allocated dy- 
namically using malloc( ), and a pointer 
to the array should be stored in the 
value field of var_type. 







LPI introduces NEW C—with bright, new 
ANSI features and functionality. It’s designed 
to meet the evolving needs of computer manu- 
facturers, software developers and the federal 
government for open systems. NEW C greatly 
enhances program quality and reduces devel- 
opment costs. It facilitates the creation of 
highly portable, maintainable, and reliable 
programs. 


Conforms to ANSI Standard 

NEW C fully conforms to the ANSI Standard, 
which defines a clear, consistent C language 
for portability across many environments. 





High Performance Features 

To create NEW C, LPI has added the ANSI-C 
standard run-time library, function prototypes, 
in-line code generation for math, string and 
memory functions and a well-defined pre- 
processor to their high-performance C com- 
piler. NEW C also allows easy transportability 
of applications written with pre-ANSI C 
compilers, so programmers can still use the 
mountains of pre-existing C code. 


NEW C contains many of the same features as 
other LPI languages including user-selectable 
optimization levels and cross-language calling. 
It is supported by CodeWatch, LPI’s inter- 
active source-level debugger. And it gives 
informative, detailed error messages to help 
accelerate your development cycle. 
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The addition of structures and 
unions poses a more difficult problem. 
The easiest way to handle them is to 
use malloc( )to allocate space for them, 
and to use a pointer to the object in the 
value field of the var_type structure. 
(You will also need special code to 
handle the passing of structures and 
unions as parameters.) To handle dif- 
ferent retugn types for functions, add a 
type field to the func_type structure, 
which defines what type of data a func- 
tion returns. 


Availability 

All source code for articles in this issue 
is available on a single disk. To order, 
send $14.95 (Calif. residents add sales 
tax) to Dr. Dobb’s Journal, 501 Galves- 
ton Dr., Redwood City, CA 94063, or 
call 800-356-2002 (from inside Calif.) 
or 800-533-4372 (from outside Calif.). 
Please specify the issue number and 
format (MS-DOS, Macintosh, Kaypro). 


DDJ 


(Listings begin on page 110.) 


Vote for your favorite feature/article. 
Circle Reader Service No. 4. 


NEW C runs on popular hardware platforms, 
including Intel 80386-based systems, the 
Motorola™ 680XO series, the RISC-based 
Motorola 88000, and Sun’s SPARC® processor. 
It also supports a variety of floating point 
co-processors, including the 68881, 80287 and 
80387. 


Other LPi Products 
LPI also offers BASIC, COBOL, FORTRAN, 


Pascal, PL/I and RPG II compilers. LPI’s line 
of productivity tools is comprised of Code- 
Watch; CoEdit, a programmer's editor; and 
Cocoon, an object-oriented development tool. 


See the Light With LPI's NEW C 
To see how NEW C fits your evolving require- 
ments, call LPI at 508-626-0006. 


“wLPI 


Language Processors, Inc. 

959 Concord St., Framingham, MA 01701 
FAX (508) 626-2221, Telex 951671 
Federal Office (301) 595-2558 


LPI sets the standards for 
UNIX compilers. 


Motorola is a registered trademark of Motorola, Inc. SPARC is 
a registered trademark of Sun Microsystems, Inc. Numerous 
companies mentioned above own various trademarks. 
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C Multidimensional 
Arrays at Run Time 


Organizing the heap for run-time multidimensional arrays 


isnt easy, but it is possible 





hen you declare arrays in 

C, their sizes remain fixed. 

You have to decide before 

your program runs how 

large an array will be, re- 
gardless of whether you declare it as 
automatic or static. What about declar- 
ing arrays at run time? In this case, you 
need to call the C library routine mal- 
loc() or calloc( ) to build dynamic ar- 
rays from memory (called the heap). 
This approach eliminates anticipating 
array bounds at compile time and makes 
programs allocate only as much mem- 
ory as they need. 

One-dimensional arrays are easy be- 
cause a call to malloc() or calloc() 
returns a pointer to a chunk of heap 
memory that you may use as a one- 
dimensional array. You cast the heap 
pointer to an appropriate data type and 
use either array notation or pointers to 
reference the allocated elements. 

Multidimensional arrays, however, are 
more difficult. There’s no standard C 
library routine that sets up the heap so 
that you may use it as a multidimen- 
sional array. To the heap manager, heap 
storage is merely a block of consecu- 
tive bytes with no notion of rows, col- 
umns, and so on. You need a way to 
organize the heap for run-time multidi- 
mensional arrays. Moreover, it would 
be nice to retain the concepts of rows 
and columns so that heap memory ap- 
pears like a multidimensional array to 
your programs. 


Paul is a consultant and co-author of 
Advanced C Tips and Techniques, pub- 
lished by Howard W. Sams, from which 

this article was adapted. Paul can be 
reached at 1212 Eolus Ave., Leucadia, 

CA 92024. 
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Paul Anderson 


In this article, I'll discuss C functions 
that create run-time two-dimensional 
and three-dimensional arrays of any 
data type (including arrays of struc- 
tures and unions). I'll also discuss a 
technique to mimic the subroutine call- 
ing conventions of Basic and Fortran 
with two-dimensional arrays. Along the 
way, I'll review two-dimensional and 
three-dimensional arrays and the rela- 
tionships between pointer expressions 
and array references. This should give 
you the information you need to im- 
plement these concepts in your own C 
programs. 


The Basic Rule 

Let’s start with how C views arrays. For 
a one-dimensional array of any data 
type, the following equivalence exists 
between an array reference and a 
pointer expression: 


ali] = (*(a + i)) 


I call this the basic rule because it ap- 
plies to many complicated pointer ex- 
pressions, as you will see later on. Note 
that you may omit the outer parenthe- 
ses most of the time except for expres- 
sions where C’s precedence rules re- 
quire them. The basic rule helps ex- 
plain simple relations such as Ga/i/ = a 


+1, where I apply C’s address operator 
(&) to both sides of the relation and use 
C’s precedence rules to simplify the 
result. Using the same method, the ba- 
sic rule helps derive the relations a/O/ 
= *a and GalO/ = a. 

One of the surprising things about 
C arrays is that array references don’t 
really exist. If you don’t believe this, try 
running the portable program in Exam- 
ple 1, which compiles without error. 
You'll discover the program displays 5 
(the sixth element of the array) four 
times. Despite the fact that the last two 
array references must be the ultimate in 
job security, C translates the array ref- 
erences to pointer expressions accord- 
ing to the basic rule. Although no one 
(hopefully) would use expressions such 
as these in programs, they’re conclusive 
proof that C handles arrays differently 
from the way other languages do. 

Now let’s move on to multidimen- 
sional arrays. Two-dimensional arrays 
are easy because you can visualize them 
as grids with rows and columns. (By 
the way, I'll use the term grid for a 
two-dimensional array from now on. 
Think of it as a checkerboard in which 
rows and columns locate unique ele- 
ments.) In C, the declaration double 
mint(3]5/ allocates storage for 15. dou- 
bles, arranged as 3 rows by 5 columns. 





Example 1: A portable program that compiles without error 


Dr. Dobb’s Journal, August 1989 








C-Worthy (R) Demonstration 1.1 


iten Product 
t| 2 C-Worthy Interface 
3 Foras Interface 
4 C-Worthy (w/source) 


Fi “Help Ctrl Pglip=Previous 


SQV IE 
x Se 


Focus your user on the next step by creating clean, attractive screens. Use C-Worthy’s windows, 
hidden sub-menu, field validation, mouse support, field specific help, and much more. 


Ctrl Pgdn=-Hext 





Thursday April 28, 1989 1:15 an 


= 


Sab Total 
Tax 


Shipping 
Total / 





Esc-Exit 








Only C-Worthy?® protects you from the trap 


that keeps 50% of the market from using your software 


The Trap: Users will reject your application if the interface is hard to use. They'll never even see the power of your 
program. “If you’ve messed up the interface, the product is probably dead in the water.” 





— Jeffrey Tarter, Editor, Softe Letter 


The Solution: Use C-Worthy’s 30 highest-level functions to create applications for windows, menus, editing, help, 
error handling and forms. Or, use a larger mix of 430+ tested, documented, stable functions to finely tailor your 
work. Save one month or more in work effort while making a more thorough and consistent interface for a C 
development project. C-Worthy will produce an interface that pleases even the most demanding user. 


Functionality Superior to Competing Environments 


Menus Pop-up, Lotus 

style, pull-up and pull- 

down (windows style). 

Automatically sized to fit 
your choice of options, header, border 
type. Auto-select based on menu-item 
hot-kev character you select. 





Screens and Windows 

Exploding, tiled or 

overlapping. Direct video 
access or virtual. Keep up to 50 active. 


Forms. Optional Form 
Interface Library speeds 
construction of data input 


forms, lets youapply — | Comprehensive 
latest research findings to gather and \ Documentation 
ilt-i —S——"> 1400 Pages, fully indexed, 





validate input. 23 field types, built-in or = 
custom validation. Provide help at form 
and field levels. User-controllable 
movement sequence within the form. 


plus 10,000+ lines of 
ready-to-go code that you can run, 
modify and learn from. 


C-Worthy Interface Library 
Object only .............. $195 Form Interface add-on ............. $100 
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C-Worthy is a registered trademark of Custom Design Systems, Inc. 
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“C-Worthy is a higher level approach to human 
interface than other Clibranes .. . Our software 
engineering department does not use another 
human interface library.” 

— Kevin Kingdon, Senior Software Engineer, Novell, Inc. 
(Over 500,000 users of Novell NetWare Utilities use a C-Worthy 
based interface every day.) 

Version 1.1 is even easier to use 
New 250 page manual: The Programmer’s Guide will help you 
quickly choose the function that solves your problem. 
Fully integrated mouse support: Your user can now use a 
mouse to select from menus or lists, move around a form, or 
edit text. 
Plus: extended error handling, speaker control, scrolling forms, 
pop-up subforms, and new field types like: visible lists, 
unsigned long integer, matrix menu, more. 


Ask for Your FREE Bonus 
Just for Trying C-Worthy with 
a 60 Day Moneyback Guarantee. 
Call 800-821-2492 ext. 372 
(in MA and outside U.S. 617-337-6963) 


BONUS Guidelines for Designing User Interface Software. 
Contains 944 guidelines, including graphic functions 
and data display. 496 pages, $38.95. 
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FINALLY! 


UNLIMITED MEMORY C++ 
FOR MS-DOS AND UNIX 


7: ¢ Compile larger programs. 
LT mew Access up to 4 GB with 
iN =k cn sm Intek C++ running in 


80386 protected mode 
and get full usage of 
C++'s powerful object-oriented programming features. 
Choose the compiler you prefer. Microsoft C, Turbo C, 
Metaware, or Watcom—it’s up to you. 
« Enhance program compatibility. |ntek C++ supports C 
extended keywords, so it is compatible with programs that 
run under Microsoft Windows or OS/2. 
Simplify your development environment. |ntek C++ can 
cross-compile from Unix System* V/386 to DOS, so you can 


keep everything in one place. 
- Contact these quality dealers: iNlEK 
The Programmer’s Shop INTEGRATION 
TECHNOLOGIES 


1-800-421-8006 
Software Central 400 -112th Avenue SE, Suite 202 
Bellevue, Washington 


1-800-826-9581 206) 455-9935” FAX: 506) 455-9934 
In California call 1-800-543-6945 peer fed entree al 











L 
Requires 80386, 640K (1 MB or more recommended), C compiler. Note that 4 GB access refers to compile time; runtime access 





depends upon your C compiler. Metaware, Microsoft, and Watcom are all trademarks of their respective companies: Turbo C is 
a trademark of Borland Intl; MS-DOS is a trademark of Microsoft; Unix is a trademark of AT&T. Intek is licensed from AT&T. 
* Unix version available second quarter 1989. 
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The 
Heap Expander™ 
version 2.05 


Now your programs can have virtually unlimited heap space 

using expanded memory, extended memory and disk space. 

The Heap Expander's initialization code checks the system's 
resources and uses whatever is available. 


NAS" 

Libraries and Source Code for: 
@ Turbo C 

@ Microsoft C 4.0 , 5.0 and 5.1 
@ Turbo Pascal 4.0 and 5.0 


g19: 


@ Uses LIM-standard expanded memory 
if present. 


@ Uses AT-style extended memory if Requires an!BM PC, XT, AT, orclose 
present. compatible with MS-DOS or PC-DOS version 
@ Swaps data to disk as needed. 2.0 or above 


MC/VISA/COD call 
1-800-248-1045 x 100(US) 
1-800-952-5560 x 100 (Idaho) 


The Tool Makers 
P.O. Box 2151 

Santa Cruz, CA 95063 
408-458-0690 
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Foreigncustomers add $6.00 for shipping 
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(continued from page 50) 

Figure 1 shows how to visualize the 
array mint. Array references have the 
format mintlrowJ[col/, Once again, C 
allows you to use expressions with 
pointer indirection and array reference 
notation that are not immediately obvi- 
ous. mint{1/, for instance, is a pointer 
to a double located in the first column 
of the second row. Likewise, *mint is 
a pointer to a double in the first row 
and first column. The name of the array 
(minD is a pointer to an array of five 
doubles, located in the first row. The 
expression mint + 1, therefore, is a 
pointer to the array of five doubles in 
the second row. 

The basic rule comes in handy for 
deciphering two-dimensional array ref- 
erences. The notation mint/1/[2/, for 
example, is equivalent to *(mint/1] + 
2), according to the following derivation. 
Let: 


p = mint[1] 
Then: 
mint{1][2] = p[2] 


Marking mini{1/as p makes it easier to 
apply the basic rule: 


pl2] = C(p + 2) ) 





Figure 1: double mint(3][5] 


Figure 2: double vision(2/[3)[5] 
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Software Developers 





Natural selection provides unique 


passive protection for the porcupine. 





For Software Protection 





Inventor and entrepreneur 
_ Dick Erett explains how 
"The Activator" provides 
sane protection for your in- 
tellectual property. 





660 any industry, just as in nature, the 

Lorocess of natural selection raises one 
solution above another. Natural selection is 
the most elegant of engineers. 


In the area of software protection The 
Block has been selected by the market- 
place as the solution that works. Over 
500,000 packages are protected by our 
device. 


For the past 4 years our philosophy has 
been; ‘You have the right and obligation to 
protect your intellectual property.’ 


A New Ethic For Software 
Protection 


In allowing end-users unlimited copies 
of a software package and uninhibited hard 
disk and LAN operation, The Block has 
created a new ethic for software protec- 
tion. 








By removing protection from the 
magnetic media we remove the constraints 
that have plagued legitimate users. 


They simply attach our key to the 
parallel port and forget it. It is totally 
transparent, but the software will not run 
without it. 


A New Technology For 
Software Protection 


Our newest model, The Activator, builds 
on our current patented design, and 
establishes an unprecedented class of 
software protection. 


We have migrated and enhanced the 
circuitry of The Block to an ASIC (Appli- 
cation-Specific Integrated Circuit) 
imbedded in The Activator. 


This greatly improves speed and 
performance, while reducing overall size. 
Data protection can also be provided. 


Programmable Option 


The Activator allows the software 
developer the option to program serial 
numbers, versions, or other pertinent data 
known only to the developer, into the 
circuit, and access it from the program. 


_ Once you program your part of the 
chip, even we have no way to access 
your information. 


The ASIC makes emulation of the device 


virtually impossible. It also presents 
an astronomical number of access 
combinations. 


Full 100% Disclosure 


Since The Activator is protected by our 
patent we fully disclose how it works. 
Once you understand it, endless methods 
of protection become evident. 
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(continued from page 52) 
Now substitute mini{1/ for p in both 
sides of the previous expression: 


mint{1][2] = (*Cmint[1] + 2) ) 
mint(1][2] = *C(mint{1] + 2) 


(Here I drop the outer parentheses be- 
cause they’re unnecessary.) 

mint{1][2]is also equivalent to (mint 
+ 1))2), although this is considerably 
more obscure. Here are the substitu- 
tions with the basic rule: 


mint{1] = (mint + 1) ) 
mint[1][2] = (*Cmint + 1) )[2] 


This time, however, you cannot remove 
the outer parentheses because C’s prece- 
dence rules require them (//has higher 
precedence than *). Without the paren- 
theses, the expression “mint + 1)[2] 
evaluates to “(mint + 3). (Can you 
derive this with the basic rule?) Both 
expressions are wrong because they 
locate an element outside the bounds 
of the mint array. 

Three-dimensional arrays add another 
level to the same concept. The C decla- 
ration double vision[23)5/, for exam- 
ple, allocates storage for 30 doubles, 
arranged as two grids of 3 rows and 5 
columns. Think of it as a stack of two- 
dimensional arrays on top of each other. 
Figure 2 shows how to visualize the 
array vision. Array references have the 
format vision[grid/[rowJ[col]. C permits 
pointer expressions for arrays in three 
dimensions as well as it does for two 
dimensions, but their meanings are dif- 
ferent. vision{1/ is now a pointer to 


Figure 3: Memory block for 
double mint(3[5/ 
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MULTIDIMENSIONAL ARRAYS 


an array of five doubles located at the 
first row of the second grid. Likewise, 
vision{1]1] is a pointer to a double in 
the second grid, second row, first col- 
umn. The name of the array (vision) is a 
pointer to a 3 by 5 array of doubles (the 
first grid), and vision + 1 is a pointer 
to the second grid. I’ll return to these 
types of pointer expressions when I 
apply them later on to run-time arrays. 


Storage Map Equations 

Viewing multidimensional arrays as 
grids with rows and columns is for our 
benefit. Unfortunately, the compiler has 
a harder job than we do making the 
connection between arrays and grids. 
Physical memory is accessed as a one- 
dimensional array, so the compiler maps 
multidimensional arrays to blocks of 
memory. Each time you reference a 
multidimensional array element, the com- 
piler calculates an address in the mem- 
ory block. 

Figure 3 shows the memory layout 
for the declaration double mint(3][5]. C 
stores two-dimensional arrays in mem- 
ory by rows (this is called row major 
form). The second subscript varies faster 
than the first one. Therefore, mint/O/ 
points to the first double in the first 
row, mini{1/ points to the first double 
in the second row, and so forth. The 
compiler calculates the address for an 
array reference by locating the appro- 
priate row and accessing the correct 
column within that row. 

When you use the array reference 
mint/ilfj/ in a C program, the compiler 
implements the following pointer ex- 
pression: “Gmint(OO] +5 *1 +7). Sub- 
script 7 is the row number, subscript / 
is the column number, and Gmint/OJ/[O/ 
is the base address of the array. I call 
this above expression a storage map 
equation. Every multidimensional ar- 
ray declaration in a program has one. 
This particular storage map equation 
is for the two-dimensional array double 
mint[3]5]. 

Note that the number of rows in a 
two-dimensional array declaration is not 
used in the storage map equation. This 
helps explain why the declarations in 
Example 2 are legal in C. 

To generate the storage map equa- 
tion for a/i/[j/ inside fC), the compiler 
requires the number of columns but 
not the number of rows. Likewise, the 
extern statement provides the compiler 
with the necessary information to ref- 
erence mini/i/[j/, even though the array 
is declared in another file. 

Storage map equations apply to three- 
dimensional arrays as well. Figure 4 
shows the memory layout for the dec- 
laration double vision/2)/3/[5]. The sec- 
ond 3 by 5 grid follows the first. Mem- 


ory layout within each grid has the 
same organization as in the two-di- 
mensional example. 

When you use the array reference 
vision{ifi[k/, the C compiler uses the 
following storage map equation: *(Gvi- 
ston[Of[O0] + 15 *i +5 *7 +k). Sub- 
scripts 7, 7, and R are the grids, rows, 
and columns, respectively, and Gvision 
[ONO/[O/is the base address of the array. 
The number 15 is the product of the 
number of rows (3) and the number of 
columns (5). The storage map equation 
for a three-dimensional array reference 
does not use the number of grids. 

Why be concerned with storage map 
equations, anyway? It turns out that 
many C compilers generate multiply 
instructions in assembly code for mul- 
tidimensional array references. Depend- 
ing on the compiler you use, this may 
affect performance of a running C pro- 
gram. Suppose, for example, you de- 
clare mintas follows: double mint[3(4/ 
The storage map equation for mint/il[j/ 
is now *“(Gmini[O[0] + 4 *i +7). Some 
compilers generate shift instructions in 
place of multiplies. Multiplying an inte- 
ger by a power of 2, for instance, is the 
same as shifting the bits left by the 
value of the power. In this example, a 
compiler could shift i left by 2 bits 
instead of multiplying it by 4. If the 
number of columns is not a power of 
2 (like our original declaration of 
mini[3I5), some compilers may even 
generate a set of “shift-and-add”’ in- 
structions. In other words, shifting 7 
left by 2 bits and adding i is the same 
as multiplying i by 5. In the following 
sections, Ill create two- and three- 
dimensional arrays that don’t use stor- 
age map equations to access array ele- 
ments. In many cases, this improves a 
program’s performance. 


Two-Dimensional Arrays at Run Time 

Now let’s put all this information to work 
and create a function that allocates two- 
dimensional arrays at run time. Sup- 
pose you need a 2 by 3 array of integers 


main () 
{ : 


extern double mint[][{5]; /* OK */ 
» Mintiilig] .. 
f (mint); 
f (a) 
double a[][5]; 
{ 


- - alil(ji . 





Example 2: The number of rows in a 
two-dimensional array declaration-is 
not used in the storage map equation 
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in a program. Instead of declaring int 
al2)[3], \et’s allocate memory from the 
heap with the statements in Example 3. 

Figure 5 shows the memory arrange- 
ment. There are two pointers to heap 
storage. The first pointer (D) points to 
the array of data (six integers). The 
second pointer (a) points to a pointer 
array containing the addresses of the 
rows of the data array. Note that pis a 
pointer to an int and a is a pointer to 
a pointer to an int. I use calloc( ) to 
zero fill the data array and malloc( ) to 
allocate heap storage for the row array. 

With the pointer array a, you may 


*D; 


xka; 


(int *) 


Pp; 
po 3? 


Calloc(2 * 3, sizeof({int)); 
(int **) malloc(2 * sizeof(int *)); 


now use two-dimensional array refer- 
ences in a program. a/1//2/, for instance, 
refers to the last data item, or the third 
column of the second row of the two- 
dimensional array. From the basic rule, 
it’s as if you typed *(a/1/ + 2). However, 
al1/is now a pointer to the first integer 
in the second row, and a/1/ +2 is a 
pointer to the third column in the same 
row. The compiler uses pointer indi- 
rection in place of a storage map equa- 
tion to access array elements. 

Listing One, page 124, contains the 
C source code for two functions based 
on this technique. Function dim2(_ ) cre- 


pointer to data */ 
pointer to rows */ 


first row */ 
second row */ 





Example 3: Allocating memory from the heap 


int **a; 
struct something **s; 


/* 2D array of integers */ 
/* 2D array of structures */ 


a (int **) dim2(3, 5, sizeof (int)); 
s (struct something **) dim2(4, 6, sizeof(struct something) ); 





Example 4: Creating two-dimensional arrays of integers and structures 


ates two-dimensional arrays of any data 
type at run time and function /free2( ) 
frees them. Example 4 shows how to 
create a 3 by 5 array of integers and a 
4 by 6 array of structures. The state- 
ments free2(a) and free2(s) release the 





Figure 4: Memory block for double 
vision[213115] 





C Language 
Training Seminars 


Go to C! 


Embark on a voyage through C 
language fundamentals! 


4 days of hands-on, interactive coding 
sessions and lectures. 
Two textbooks and over 25 source code 
programs provided. 
Focus on Microsoft C and Turbo C. 
Classes held monthly at The C-Team. 
Corporate training on location. 


Tuition: $995. 


Call for information. 


The C-Team, Inc. 


Providing C expertise for all training and 
programming needs. 


60 East 12th St. 


New York, NY 10003 


212/477-3990 
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global variable, 


in a new edit window. 










2— spechuy—— msc Jib jn JCED2 C -106 
speckey() 
switch (cep-> keyhit) 
{ 


ret_key; byfeak; 





cutclip(); break; 
copyclip(Oy.break; 
pasteclip(y break; 
Meletbik(}] break; 
case AItE: printiff); ak; 
sfind(1); break; 
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“Hypertext Source Code 
Databank for Programmers 


Explore source code! Navigate uncharted logic trails easily! 


4c includes: 
* A Source Code Analyzer; 


The analyzer maps and cross-references 
functions and variables to their respec- 
tive path and file names. 
reference table can be displayed alpha- 
betically and by type of variable. It allows 
a programmer to edit functions directly 
without specifying a file name. 





ZoQqm : 

Which instantly locates any function, 
structure definition, 
#define statement, or macro, etc., inany 
file, directory, and drive, and displays it 


* AFull Featured Built in Editor: 
Featuring multiple files, multiple win- 
dows, cut-and-paste between files, search- 
and-replace, auto indent, tab support, 
and a familiar user interface with pull-< 
down menus, or use your own editor! 

3— deletblk — \msc\oyh 
deletbik() 
{ 


savanowecep? anow; 


pDegamark 
white (cutting 


Call or Write Today! 


Tri-Technology Systems Inc. 
1225 S. Elgin, Forest Park, Il. 60130 


Phone: 312-366-7595 









"Given a procedure's identifier, an editor should be \& 
able to bring up the full procedure interface, including 
parameters, so that you don't have to remember how 
many and in what order. Wouldn't it be nice to hit a 
hot key on the name of a complicated data type and 
|have its definition pop up ina window? It may seem 
\like a real small matter, but how many of you still flip 
‘through printouts doing things the editor should be 
doing?" 




















The cross- 









| 
\- Phillipe Kahn, "The Connection", Spring/Summer 
1988 













4 C does this and more 
""4c's Magic is apparent..." 
- PC Magazine, February 1989 






"Daylight in the C Confusion" 
- Toolbox magazine, December 1988 





"Destined to become the standard editor for C..." 
- Computer Personlich magazine, October 1988 


4 — begamark mscisrc\4c\JCED4 C 








char = #roaskarea; 





_ f* Mile handle 
J* object name 


fh: 
char = Thiname/20]; 
‘ /* cat of current 


curcat; 


char word[40}; 






if (p=-endam 
if (ip->begmark=-Ohae | 





7? Usplay work 














ij eaphoenagei hal a : 

cwp->cur_¢ scwp->o_pos=0; 

savanoweNULL:) For C and Pascal 
cep->anow=p; 

del linet): , 

} No copy protection! 


Free technical assistance! 
No changes to source code required! 
Required IBM PC compatible with 350K RAM. 
30 Day Money Back Guarantee! 
Only $119.00 plus shipping 
Visa, Mastereard, check, money order, or COD. 
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(continued from page 55) 
heap memory allocated for each array. 
Function dim2( )allocates heap mem- 
ory for the row pointer array (pointed 
to by prow) and the data array (pointed 
to by pdata). The forloop connects the 
row pointer array to the data array. 
Function free2() makes two calls to 
free() to release heap memory. The 
first call frees the data array and the 
second call releases the row pointer 
array. Note that the order for the calls 
to free( ) is significant! 





Figure 5: Run-time allocation 


for al2][3] 


MULTIDIMENSIONAL ARRAYS 


Three-Dimensional Arrays at Run Time 

Three-dimensional arrays at run time 
extend the same concepts. Implement- 
ing the compile time declaration of int 
al2[3/[2], for instance, requires two 
pointer arrays in addition to the data 


array. One pointer array contains point- 
ers to the rows of heap data and the 
other one contains pointers to the grids. 
Figure 6 shows the memory arrange- 
ment. Pointer @ points to the grid pointer 

(continued on page 59) 





Figure 6: Run-time allocation for al2][3]2] 





Write powerful network 
compatible databases faster 
and easier using B-Tree 
Filer 5.0. You'll have the 
fastest, safest, most flexible 
databases — no rigid struc- 
ture, no TSR hassles, no running 
out of files. And they're compatible with 
Novell, 3Com, MS -NET, and others. 

You get: m Fixed and variable length 
records m Two billion records per 
database m Upto 100 indexes per file 
@ Flexible record locking m Fail-safe 
mode with journaling m Units for sort- 
ing, browsing, reindexing, and network 
control. 

B-Tree Filer includes full source 
code, documentation, technical support, 
and you pay NO acing 





nly $125. (single user) 


” Withn cenaork sami oe only $175. 


Satisfaction guaranteed or your money back within 
30 days. Turbo Pascal 4.0 or 5.0 is required. 


Shipping and taxes prepaid in U.S. and Canada. 
Elsewhere add $15 per unit. For more information 
call (408) 438-8608. 





Turbo Professional 5.0 
isa library of more than 
600 state-of-the-art 
routines optimized for 
Turbo Pascal 5.0. It 
includes complete 
source code, compre- 
hensive decimnentatn and powerful 
and useful demo programs. 

You get: # TSR management 
@ Menus and windows m BCD mLarge 
arrays and more. ew Koutixes/ Complete 
mouse support m Window-oriented text 
editor m Scrolling data entry screens 
@ Versatile pick lists m On-line reference 
guide, and more. 


“ Turbo Professional...a superbly crafted 
toolbox... [makes] the hard stuff so easy.” 


Kent Porter, Dr. Dobb's Journal, 4/88 


TurboPower Software P.O. Box 66747 Scotts Valley, CA 95066-0747 
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Analytical Tools to Help You 
Write Better Programs 


You'll write better Turbo 
Pascal 5.0 programs easier 
and faster using the power- 
ful analytical tools of Turbo 
Analyst 5.0. You get an 
integrated development envi- 
ronment with: mFile Browser m Mouse 
support m Hotkey access to the compiler, 
debugger and the analytical tools. 

The tools include: Pascal for- 
matter, Program structure analyzer, Pro- 
gram lister, three Execution profilers, 
and Unit disassembler. 


“Turbo Analyst...a valuable tool for every 
Turbo Pascal programmer. The Program 
Structure Analyzer...a timesaver. 
The integrated environment...impressive. 9 
Namir Shammas, Turbo Tech Report, 7/88 


“a (en Bese tank Ce 4S ram ler COD 
Turbo Analyst 5.0 is only DIT. 


Call toll-free for credit card orders. 
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Continental U.S. and Canada 
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The joy of C-scape 


he C-scape™ Interface 

Management System frees C 
programmers from the tedium of 
coding windows, menus, data 
validation, help, and text editing 
functions. 


Moreover, C-scape is a joy to use. With 
C-scape’s object-oriented design, you'll 
build more functional, more flexible, 
more portable, and more unique 
applications—and you'll have more fun 
doing it. 


The industry standout. Many 
thousands of programmers have quit 
home-grown libraries and cumbersome, 
inflexible products for the pleasure of 
C-scape. The press agrees: “C-scape is by 
far the best ... a joy to use,” wrote [IEEE 
Computer. PC Magazine chose C-scape 
to produce its Laboratory Benchmark 

q Series 5.0 software because 
™ C-scape offers mouse 

/ support. Moreover, C-scape 

simultaneously combines 

text and graphics. And because C-scape 
makes it easy to create your own custom 
routines, major companies have selected 
C-scape as a standard for software 
development. 


C-scape is built around an open 
architecture, so you can use it with data 
base management or other C libraries. 


C-scape Features 


Graphics. Combine high-resolution color graphics 
with text or menus. 


Object-oriented. Add features and create 
reusable code modules. 


Mouse. Use any standard mouse for fast screen 
control. 


Portability. Write hardware independent code. 
Supports DOS, 0S/2, UNIX, others. Autodetects 
Hercules, CGA, EGA, VGA. 


Text editing. Create a full-featured text editor or 
pop-up note pad. 


Field flexibility. Create masked, protected and 
marked fields with complete data validation. Use 
time, date, money, pop-up list, and many more 
functions, or create your own. 


Windows. Choose from pop-up, tiled, bordered 
and exploding windows, with size and numbers 
limited only by RAM. 


Menus. Choose from pop-up, pull-down, 123-style, 
or slug menus, or create your own. 


Context-sensitive help. Link help messages to 
individual screens or fields. Cross reference 
messages to create hypertext-like help. 


Screen design. Build any type of screen or form 
with the Look and Feel™ Screen Designer, then 
automatically convert it to C. 


Screen flexibility. Call screens from files at 
run time or link them in. 


And to port from MS-DOS or OS/2 to 
UNIX, just recompile. 


Trial with a smile. C-scape is not 
only the most sophisticated, flexible and 
powerful interface system available, it’s 
also the most friendly—and easiest to 
use. Try C-scape on a 30-day trial. It 
comes with a thorough manual, demo 


. disk, sample programs with 
~~ source code, an optional 
/ screen designer and code 


generator, access to a 
24-hour bulletin board, and toll-free 
support. No royalties, runtime licenses, or 
runtime modules. After you register, you 
get complete library source code at no 
extra cost. 


Call 800-233-3733 (617-491-7311 
in Mass.) to try C-scape now. After the 
joy of C-scape, programming wil never be 
the same. 

MS-DOS, OS/2: $299, library only; with 
Look & Feel, $399. UNIX, XENIX, Apollo, 


Sun, Stratus, others please call. 
Mastercard and Visa accepted. 


OA AKI D, 





Oakland Group, Inc. 675 Massachusetts Ave., Cambridge, MA 02139 USA. FAX: 617-868-4440; Washington 206-746-8767; Benelux (02159)46814; Denmark 

(02)88 72 49; France (1)46 09 28 28; Germany/Austria/Switzerland (49)07127/5244; Norway (02)44 88 55; Sweden (018)124780; U.K. (0992)500919. C-scape and 
Look & Feel are trademarks of Oakland Group, Inc. MS-DOS and XENIX are trademarks of Microsoft Corp. OS/2 is a trademark of International Business 
Machines Corp. UNIX is a trademark of AT&T. HERCULES is a trademark of Hercules Computer Technology, Inc. Prices and terms subject to change. 


Photo by Jessica A. Boyatt. Kanji by Kaji Aso. 
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How to match the best front end 
with the best back end. 


You’ve invested in the best hardware, 
operating system and database products. 
You have a staff of programmers ready to 
go. But to build great looking applica- 
tions with the sophisticated features 
today’s users demand, you need a power- 
ful front end development tool—JAM™ 
JAM, the most advanced user interface 
management 
system on the 
market, does 
it all—from 
prototyping to 





And, because 
it works with 
any database 
or file manager, you get the best front 
end and the best back end. 

JAM. is hardware independent, so it 
isn’t limited to one computer, database or 
operating system. In fact, JAM runs on 
everything from PC’s to super-minis, 
works under 7 operating systems and 
provides access to a host of database 
products. Using JAM you can create a 
consistent user interface across multiple 
systems and hardware platforms. 


Create colorful screens and 
nested windows easily. 


implementation. 


JAM works under the following operating systems: 


¢ UNIX® e VMS® ¢RMX™ 
eXENIX® e¢VOS™ 
e AOS/VS™ 


¢ MS-DOS® 


JAM makes it easier than ever to design 
and revise complex applications. Using 
features like context-sensitive help, proce- 
dural command language (JPL), shifting 
and scrolling fields, extensive data valida- 
tions, on-line testing, and a variety of 
visual attributes, you’ll be amazed how 
quickly your applications spring to life. 

JAM is fast, as well as flexible. Develop- 
ment time is reduced significantly thanks 
to JAM’s powerful screen drawing utili- 
ties and comprehensive library of sub- 
routines. You can easily create and link 
together screens, windows, and menus to 
develop an application shell. Then simply 
attach the processing routines, and your 
application is compiete. 


JAM 





Plus, if your back end is an SQL-com- 
patible relational database like Oracle® 
SQLbase® Informix® or Britton Lee™ 
you'll really appreciate JAM / DB, 
JAM+’s optional database interface. With 
JAM/DBz, you can develop entire appli- 
cations using only industry-standard 
SQL state- 
ments and 
JAM’s author- 
ing tools. 

So if you’re 
programming 
ina3GL 
like C or Use SQL to retrieve 
FORTRAN, and display data. 
follow the lead of the many Fortune 1000 
companies who have already discovered 
JAM. 

JAM from JYACC. It gives you the 
best at both ends. 

Call for more information about 








AM and our 
demo disee. 800-458-3313 
JYACC, Inc. Th) a) a 
116 John Street Oe hea? x 1 


New York, NY 10038 oe aa 9 O% 
212-267-7722 FAX No. 212-608-6753 


JYACC Application Manager. The Composer for Sophisticated Applications 


CIRCLE NO. 275 ON READER SERVICE CARD 


MULTIDIMENSIONAL ARRAYS 


nnn A 


(continued from page 56) 


array, p2 points to the row pointer ar- | | int tea; : say . | It 3D array of integers */ : 

ray, and p points to the data. Once you || ee Somethang 2. * 30 ae of structures */ 
initialize the grid and row pointer ar- | |" a = (int: kek) ding ta, a a eizecttint)): | 

rays, you access the data with @. Here || 3 _frruct comet na eee) a « ‘8, sizeof (struct serething)): 





are the declarations for the three point- a : _ 
ers: int **a, *b2, and ‘p. Note that Example 5: Creating PE dinicnsonaha arrays of integers and of structures 


three-dimensional array references with 


a use pointers with triple indirection. || _func(data, 5, 9); | 
The array reference a(O/[2){1/, for exam- 

' 11 
ple, becomes “(a +2) +1), accord- | pa Inside func () you have the fo owing: 
ing to the basic rule. As with the funeia. rows, cols) 
two-dimensional technique, three-dimen- int al) (91; 


int rows, cols; 


sional array references use pointer in- 


direction in place of a storage map equa- 


register int i, j; 
tion with multiplies or shifts and adds. ee 


Listing Two, page 124, contains the i for (i m= 0; i < rows; itt) 
C source code for two functions based : _ =ifer (j = 0; 3 < cols; j++) @23=—e 
_ _. al. _._. /* array references OK */ 


on the three-dimensional technique. 
Function dim3( ) creates three-dimen- oo oe 
sional arrays of any data type at run | Example 6: Passing the address of a two-dimensional array 

time and free3() frees them. Example : 





5 shows how to create a 3 by 4 by 5 func(a, rows, cols) 
array of integers and a 4 by 6 by 8 array int *a7; 
of structures. Function calls free3(a) ne rows, cO1s; 
and free3(s) release the heap memory Peoicter int *p = a, “end = a + row * cols; 
allocated for each array. ee | 
Function dim3( Jallocates heap mem- while (p < end) { | : 
ory for the grid pointer array (pointed oe. /* Can't use a[i]{j] references */ 


to by pgrid), the row pointer array 
(pointed to by prow), and the data ar- ee 7 

ray (pointed to by pdata). Two for | Example 7: The effect of passing the first address of an element of a 
loops connect the grid pointer array to two-dimensional array 

the row pointer array and to the data 
array. Function free3() makes three 
calls to free( ) to release heap memory 
for the data array, the row pointer array, 
and the grid pointer array, respectively. 





Function Calling Conventions 

Languages such as Fortran and Basic 
allow you to pass different-size multi- 
dimensional arrays as arguments to the 
same function and use array notation 
to reference elements. In Fortran, for 
example, the statements: 


SUBROUTINE FUNCCA, M9 Making ends meet. 


DIMENSION A(M, N) 





Sophisticated database applications results into the user interface, so that you 
require sophisticated user interfaces. can now create an entire application using 
When you have to meet tight deadlines just SQL and the JAM authoring tools. 
allow a subroutine called FUNC() to and stay within budget, you need a JAM/ DB: gives you power and flexi- 


END 


access a two-dimensional array called powerful development tool up front— bility. You can change screens indepen- 
A with run-time values for M rows and JAM/DB2.™ dently of your database schema and 
Ncolumns. Programs call FUNC( ) with JAM/DB: links JAM’s front-end move your database from one vendor 
A tareni-size arrays. Fortran libraries development tools with the database to another without sacrificing the 
use subroutines such as FUNC() to of your choice, including SQL- original look and feel of your 
invert matrices or calculate mathemati- compatible database products like applications. 
cal items. such . determinants .and Oracle® Informix® Britton Lee™ Find out how JAM/ DB: can help 
eigenvalues. This convention is useful and SQLbase™ you make ends meet. For more infor- 
because subroutines may reference ele- But J AM/DB: does much more than mation call 800- 4 5 Q. 3 3 1 3 
ments by rows and columns. provide access to your database and sup- 

C doesn’t provide such a built-in fea- port SQL. It extends Introducing JS he L 


ture. Consider what happens, for ex- SQLs capabilities * 
a multidimensional array to a function. ep PMS ae : 
Inside the function, the compiler uses 
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a storage map equation with fixed sizes. 
To illustrate, suppose you declare the 
following two-dimensional array of in- 
tegers: int data[5/[9/. 

The statements in Example 6 call a C 
function, func( ), to pass the address of 
the two-dimensional array along with 
the number of rows and columns. The 
compiler requires 9 in the declaration for 
a to properly address elements of the 
array with the storage map equation. 

Suppose you have another two- 
dimensional array called int moredata 
[4/[10/; You can’t use func( ) to access 
data in this array. The function call 
func(more data, 4, 10) won’t work 
because func( ) is compiled with the 
number of columns set to 9 and not 10. 
Attempts to use it make func( ) refer- 
ence memory incorrectly. 

Another alternative is to pass the ad- 
dress of the first element of the two- 
dimensional array. The statements: 


func(&datalO][0], 5, 9); 
func(&moredatal0][0], 4, 10); 


make func() access the two-dimen- 
sional arrays as a one-dimensional ar- 
ray. The code inside func( ) changes, 
however. Now you have the code 
shown in Example 7 

Here, parameter a is a pointer to an 
integer (previously, it was a pointer to 





C_thru_ROM — it works with Microsoft C to 
turn your PC into a complete ROM development 
workstation: complete debugging, complete locat- 
ing, complete startup code, complete documenta- 
tion, and completely self-contained. All to help you 
complete your project sooner. 


COMPLETE DEBUGGING 


C_thru_ROM allows you to debug on the 
target hardware directly from your PC! Debug at 
any level: source, assembly or mixed. Source-level 
debugging uses CodeView™ information. Win- 
dows are provided for viewing source code, 
machine registers, local and global variables, and 
commands. 


COMPLETE LOCATION 


The C_thru_ROM locator puts you in complete 
control of the location process. Locate code and 
data anywhere in 8086 memory and generate the 
output format you need — either Intel Hex, Intel 
Absolute OMF or binary image. 

COMPLETE STARTUP CODE 

C_thru_ROM includes startup code in source 
that’s ready for ROMing. Everything’s provided to 
take your 8086 from a cold start through setting the 
stack, heap, and segment registers, and calling 
main. It even has the hooks to handle stack check- 
ing, perform null pointer checks, etc. 


COMPLETE DOCUMENTATION 


C_thru_ROM’s documentation won’t leave 
you stranded. The package includes everything 
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ROMinc MICROSOFT C” 


Complete it sooner with C_thru_-ROM 





MULTIDIMENSIONAL ARRAYS 


an array of integers). This allows you 
to use compact pointer expressions such 
as *»++to access memory as a series 
of rows*cols integers. Although this is 
relatively fast, the concept of rows and 
columns disappears. Functions that com- 
pute matrix inversions and determinants 
need this information, though. 

In situations such as this, we’d like 
to have C behave like Fortran or Basic. 
This would help us translate Fortran 
and Basic subroutines to C more easily. 
Let’s apply the previous techniques to 
solve this problem. 

Suppose you want to pass the ad- 
dress of different-sized, two-dimensional 
arrays to a function that calculates a 
mathematical quantity called a deter- 
minant. The details of how you calcu- 
late determinants do not concern us 
here, but this problem serves as a good 
example of an algorithm that requires 
rows and columns for the calculation. 
Listing Three, page 124, is a C program 
that calculates determinants for two- 
dimensional arrays of doubles. 

Function det( ) calls sdim2( ) to con- 
struct pointer arrays to the data using 
the two-dimensional technique pre- 
sented earlier. Function sdim2( ) is simi- 
lar to dim2(_), except that it doesn’t 
have to create the data array. Instead, 
it allocates heap memory for the row 


from detailed program information to practical 
advice. 


COMPLETELY SELF-CONTAINED 


When you use C_thru_ROM you're using tools 
that were made to work with each other, and with 
Microsoft C, all on one PC. No more hopping from 
one machine to another, no more hostile tools. 


COMPLETE SATISFACTION 
GUARANTEED 


Order your own C_thru-ROM development 
package and turn your PC into a complete ROM 
development workstation! If you’re not com- 
pletely satisfied, simply return it within 30 days for 
a full refund. 











C_thru_-ROM 
ORDER TODAY, Call Toll-Free 


1-800-221-6630 


Datalight 


17505 - 68th Avenue N.E., Suite 304 
Bothell, Washington 98011 USA 
(206) 486-8086 


Microsoft and CodeView are registered trademarks of the 
Microsoft Corporation. 
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pointer array, connects it to the data 
array (pointed to by pdata) and returns 
the heap memory address. This allows 
the det() function to access the array 
elements of the different size arrays 
passed to it using array notation with 
rows and columns. Before deft() re- 
turns, it calls free() to release heap 
memory for the pointer array. 


Performance Pointers 

What about performance issues? The 
techniques I’ve shown you for run- 
time multidimensional arrays substitute 
pointer indirections for storage map 
equations. (Remember, storage map 
equations typically generate integer mul- 
tiplies or shifts and adds in assembly 
code.) I've benchmarked these programs 
and others using Microsoft’s C com- 
piler (under DOS and Xenix for 286 
and 386 machines) and discovered that 
pointer indirections are no worse in 
execution time than integer multiplies 
(and often execute faster). In the two- 
dimensional case, the overhead of allo- 
cating heap memory for the row pointer 
array isn’t too bad, but remember that 
three-dimensional arrays require two 
pointer arrays. This approach uses more 
heap memory and can take more time 
to set up. It’s also possible to eliminate 
function call overhead by using mac- 
ros to generate the arrays (the solu- 
tions are in the bibliography). Ultimately, 
you'll have to judge whether the over- 
head of setting up run-time multidi- 
mensional arrays is worth the effort for 
your application. 
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All source code for articles in this issue 
is available on a single disk. To order, 
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What we added to our 
function libraries is nothing 
compared to what we eliminated! 


Greenleaf relieves 
missed deadlines, 
budget overruns and a 


lot of grunt work with ou 
heavy-duty, fail-safe features. Your appli- 
cations come alive quickly to use the full 
horsepower of today’s hardware. And, 
because much of our code is in assem- 
bler, your problems will be smaller and 
more efficient. Fewer than half of our 
users ever call tech support because we 
have clearly documented code that 
works — and that saves you money 
and aggravation. 

Professionals everywhere trust these 
C tools — they are standards of depend- 
ability at such firms as EDS, AT&T Bell 
Labs, IBM, GE, GM and CitiCorp. They 
trust Greenleaf’s seamlessly integrated 
development tools to cover many areas 
of programming. You can avoid the pain 
and suffering of combining bits and 
pieces of diverse origin when you use: 


¢ Greenleaf Functions v4.00: DOS, low- 
level interfaces, parallel & serial I/O, strings, 
general library for C. $209 


¢ Greenleaf SuperFunctions: EMS, 
Mouse interfaces, time/date, advanced DOS, 
windows, menus. $265 


¢ Greenleaf CommLib: Industry standard 
interrupt driven asynchronous comm, up to 17 
ports, multi-port board support, many features 

and innovations. $229 


¢ Greenleaf DataWindows v2.1: Logical 
windows, data entry, extensive menus now with 
mouse, dozens of unique features and innova- 
tions. Available for MSDOS, OS/2, Unix and 
Xenix. $295 


¢ Greenleaf Business MathLib: Exact 
decimal math, extensive advanced business 
math — amortization or depreciation table takes 
just one function call. $32 


e Greenleaf DataMath: Interface MathLib 
with Functions, DataWindows, SuperFunctions — 
unique 3-attribute number display. $75 


¢ Greenleaf ViewComm: Full featured 
serial data analyzer runs PC up to 115 KBaud 
with triggers, datascope, breakout and review 
modes. Same features as dedicated test 
equipment costing thousands. $495 





¢ Greenleaf MakeForm: Screen generator 
for DataWindows, unique form file, cut-and- 
paste, multi-file features. $125 


Greenleaf supports all major C com- 
pilers and memory models. Source code 
is included, and you pay no royalties. 
Raima db-Vista-III database tools are also 
available. To eliminate those nagging 
aches and pains, call now for free infor- 
mation, demos or to order: 


1-800-523-9830 


In Texas and Alaska, 214-248-2561 





GREENIEAIF 





Sf 


Visa, Mastercard and American Express accepted 


FAX (214) 248-7830 








C Dynamic 
Memory Use 








Finding and exterminating C’s dynamic memory errors 


gas is defined as a substance 

capable of expanding to com- 

pletely fill a container and take 

on the shape of the container. 

When you consider software 
and a computer’s memory in light of 
this definition, it is only reasonable to 
conclude that software is a gas. The 
situation has always been that no mat- 
ter how large a container you make 
(that is, how much memory your com- 
puter has), software expands to fill it 
completely. We’ve been increasing the 
size of our containers for more than 
40 years now, and it still seems as though 
we never have enough. Because of 
this, we have had to be quite miserly 
in our use of memory just to get the 
most out of what has always been and, 
apparently, always will be a precious 
commodity. 

Memory is used to store a program’s 
executable code and the data that is 
manipulated by that code. Overlays are 
one method used to limit the amount 
of memory used for storage of execut- 
able code. A program can store its data 
in static or dynamic memory. Static mem- 
ory is allocated at the time the program 
is first loaded into memory by the op- 
erating system, and the amount of static 
memory used by a program is fixed. 
Dynamic memory, on the other hand, 
is allocated as needed at the request 
of the program during execution. Dy- 


Randall is co-founder and chief scien- 
tist at Raima Corporation and can be 
contacted at 3245 146th Place SE, Ste. 
230, Bellevue, WA 98007. 
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namic memory is assigned from a pool 
of available memory managed by the 
operating system that is often referred 
to as the heap. When the program fin- 
ishes using a block of dynamic mem- 
ory, it can return the memory to the 
heap. Note that static and dynamic mem- 
ory are strictly software differentiations 
based on how memory is used. The 
kind of physical memory, be it stan- 
dard RAM, extended, or expanded, is 
immaterial. 

Prudent use of memory is enhanced 
by minimizing the software’s reliance 
on static memory and maximizing its 
use of dynamic memory. The choice 
of programming language can have an 
important impact on the ability to do 
this, and C is particularly well suited 
for extensive use of dynamic memory. 
“Gas” is also defined as “any substance 
that produces a poisonous, irritating, 
or asphyxiating atmosphere.” Software 
does not match this definition because 
it actually seems to create an atmos- 
phere in which bugs thrive. Which takes 
me to the primary subject of this article — 
bugs, specifically the kind that result 
from the use of C’s dynamic memory 
features, and how to find and extermi- 
nate them. 


C’s Dynamic Memory Capabilities 

The standard C library provides four 
functions for managing dynamic mem- 
ory: malloc, calloc, realloc, and free. A 
summary of the use of these functions 
is provided in Table 1. These functions 
are roughly equivalent to those pro- 
vided in other languages (for example, 


Pascal/Modula-2’s new and dispose). 
The real power comes from C’s pointer 
and array concepts. 

In C, arrays can be either static or 
dynamic. Static arrays are declared with 
a constant size; dynamic arrays are de- 
clared as pointer variables. The size of 
the array is specified at run time when 
the memory for the array is allocated 
(using either malloc or calloc). In C, 
both static and dynamic arrays can be 
referenced using exactly the same syn- 
tax, so there is no requirement to stati- 
cally define array sizes. The specifica- 
tion of the size of a needed array can 
be deferred until program execution 
time, when the program has suitable 
information regarding the intended use. 

Languages without this capability 
force you to impose arbitrary limits on 
the user because of the need to fix 
array sizes at compile time. The end 
result is a large program with table 
sizes set up to accommodate extreme 
usage situations. 


Types of Dynamic Memory Misuse in C 

The danger inherent in C’s dynamic 
memory and pointer manipulation fea- 
tures comes from the possibility that 
pointers can be assigned errant values 
without detection by the compiler or 
run-time system. Errant pointers often 
result in an address reference outside 
the limits of the memory space assigned 
to the program. In protected environ- 
ments, such as Unix and OS/2, this 
results in an error called a segmenta- 
tion violation, which is detected by the. 
use of a debugger that can easily reveal 
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With VM/336 Multitasking, 
Each DOS Stands Alone 
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for adjusting the performance and 
operation of each virtual machine.” 

VM/386 gives you other kinds 
of flexibility, too. You can set 
I/O privilege level and interrupt 
priorities so multiple devices 
can be run simultaneously and 
efficiently. You can adjust the 
amount of memory used by 
each application, including 
extended and expanded 
memory. VM/386 even 
eliminates “RAMcram,” 
because you load each appli- 
cation in its own virtual machine. 

And, most importantly for any- 


Unlike multitasking environ- 
ments which force each task to share 
one copy of DOS, VM/386_ is the 
only 386 control program which 
provides complete task independ- 
ence. With our virtual machine 
architecture, designed specifically 
for the 80386 microprocessor, you 
can even crash and reboot an ap- 
plication—without affecting any of 
the others. Richard Eckhouse of 
IEEE Computer said “Unlike 
other such systems, VM/386 not 
only works well, but seems to be 
unbreakable.” 

Each virtual machine is just like 
a stand-alone PC, complete with its one trying to control complicated 
own copy of systems, you can adjust time 
PC-DOS or i ie ane a aes slices down to the milli- 


MS-DOS OM ESUCE > second level. Developers 
(the real os ae are using this feature to 
thing, mind update virtual machine 
you, not an performance “on the fly.” 





Another significant capability 
of VM/386 is the ability to run 
graphics and communications 


imitation). So 
each virtual machine in your 
multitasking environment gets its 
own terminate-and-stay-resident 
(TSR) programs, AUTOEXEC, 
and CONFIG files. 

As Namir Clement Shammas 
said in our Byte review: “VM/386 
provides you with excellent control 
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programs full-time in the back- 
ground. VM/386 supports MDA, 
Hercules, 
EGA, and 











VGA. It 
runs Novell, 3COM, 
and IBM Token Ring 
networks, and micro- 
to-mainframe communications. 

Why wait for a “new” operating 
system, and its inevitable compati- 
bility and “first-release” prob- 
lems? With VM/386, 
it takes only a few 
minutes to set up a 
fully-configurable, 
DOS-compatible 
multitasking envi- 
ronment on your 
386. 

Call today: IGC, 
4800 Great Amer- 
ica Parkway, Santa 
Clara, CA 95054 
Telephone: 408-986-8373, or call 
Toll Free: 800-458-9108 
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(continued from page 62) 
the location of the offending statement. 
Both MS-DOS and the Macintosh’s OS, 
however, are unprotected environments 
that allow programs to address any part 
of memory. In these environments, an 
errant pointer could do anything from 
causing no damage at all to destroying 
the entire file system! Debugging in 
these environments can be a most pains- 
taking experience, even with the use 
of a debugger. 

The insidious nature of another type 
of problem that can occur is alluded 
to in the following warnings: 


. any program that changes mem- 
ory that is not allocated to it stands a 
chance of destroying a DOS memory 
management control block. This causes 
unpredictable results that don’t show 
up until an activity is performed where 
DOS uses its chain of control blocks 


_ char *malloc(size) 
"unsigned int size; 


char «cpllectnm, Size) 
unsignedintnum; _ 
unsigned int size; 


_ char *realloc oe size) - 
char *ptr; | : 
unsigned int size; 


free (ptr) _ 
char “pir: 


DYNAMIC MEMORY 


(the normal result is a memory alloca- 
tion error, for which the only correc- 


tive action is to restart the system).”’ — 


From page 11-3 of the DOS Version 
3.30 Technical Reference. 

“Attempting to free an invalid pointer 
may affect subsequent allocation and 
cause errors.” — From page 290 of the 
Microsoft C 5.1 Run-Time Library Ref- 
erence. 


These comments refer to a common 
manifestation of an errant pointer bug 
that results in the system “hanging” on 
an ensuing call to malloc. The specific 
call that reveals the problem may actu- 
ally occur after many other malloc calls 
have succeeded, compounding the de- 
bugging problem. 

In my experience, the list in Table 2 
identifies some of the most common 
programming errors that lead to these 
dynamic memory corruption problems. 


: Allocates a block ole size eyes of memory returning a 
_ pointer to the start of the block or NULL if there is not 
enough memory available. 


Allocates and clears num contiguous blocks of mem- 
ory each size bytes in length returning a pointer to the 
Start of the block or NULL if there is not — 
memory available. 


_ Adjusts size of allocated block. Returns apointertothe 
_ sea size bytes or NULL i there is not we 


moved to i scommodae he new size. 


Frees a block of dynariig eemory pointed to by ptr / 
and allocated by a previous call to malloc or calloc. 





Table 1: C’s dynamic memory allocation functions 


4 Writing beyond the end of an sliocated block of memory. 
Atypical example is calling function strcpy with a source string that is missing the 
| sentinel NULL byte. It can also occur trom an “off by one” subscripting error. 


: freeing a pointer to unallocated memory. 
Have you ever tried freeing static memory? Sometimes, it is not that unusuel to 
assume a character pointer points to a dynamic string when, in fact, it points to a 


string constant. 


. Freeing a pointer to a previously freed block of memory. 
Often, a system has a variety of dynamic data structures, such as inverted lists, 
containing pointers to the same dynamic memory. This error happens when an 
attempt is nae to free the common memory pointer from multiple locations. — 


. Continued use aot freed dynamic memory. 
Some dynamic structures are allocated and freed as needed during execution. 
The need for allocation is often determined by whether or not a particular pointer 
is NULL. This error occurs when you forget to assign a NULL to that pointer when 
the structure is freed so that a later allocation that should occur, in fact, doesn't. 





Table 2: Common dynamic memory programming errors in C 
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Management and Debugging of 

Dynamic Memory 

The need for the use of dynamic mem- 
ory in Raima’s database software, 
db_VISTA and db_QUERY, is particu- 
larly acute. Both packages are C link- 
able libraries providing full-featured da- 
tabase management and query engines. 
As such, they need to use as little mem- 
ory as possible while still providing the 
flexibility needed to support a wide 
variety of applications. Yet, because 
of the dangers inherent in C’s dynamic 
memory capabilities, and the critical 
need for reliability in a DBMS, a disci- 
plined approach to dynamic memory 
usage had to be developed so that this 
insidious class of bugs could be easily 
detected and corrected. 

Because most C implementations of 
malloc and free provide little, if any, 
error checking, it was necessary to build 
our Own extended dynamic memory 
control module, which we’ve dubbed 
Xmem and which is shown in Listing 
One, page 125. Xmem keeps track of 
all pointers to dynamically allocated 
memory and performs checks for the 
four errors delineated in Table 2. De- 
fined in the module are functions x_mal- 
loc, x_calloc, and x_ free, which are to 
be called instead of malloc, calloc, and 
free. One additional function, called 
x_chkfree, checks to ensure that all 
blocks allocated using x_malloc and 
x_calloc have been freed and, reports 
and frees any that have not been freed. 

A global int variable, memtrace, can 
be set to determine the type of dy- 
namic memory control to be used. If 
memtrace is 0, no error checking is 
performed — that is, x«_malloc, x_cal- 
loc, and x_free simply call malloc, cal 
loc, and free. A memtrace value of 1 
enables pointer tracking and checking 
for errors 1, 2, and 3. Setting memtrace 
to 2 additionally checks for error 4. 

Xmem maintains two global long vari- 
ables that can be referenced by the 
application program when memtrace 
is nonzero. Variable tot_memory con- 
tains the total amount of dynamic mem- 
ory that is currently allocated; variable 
tot_alloc contains the total number of 
calls to x_malloc and x_calloc. 

A table of all allocated pointers is 
maintained by Xmem. When a request 
for a block of memory is made through 
a call to x_malloc, a gap of extra space 
is allocated at the end of the block to 
be used to check for overwrites. The 
extra space is filled with some prede- 
fined character (FILLCHAR) and checked 
for changes when the block is freed 
(error 1). The size of the allocated block 
and the pointer are stored in the table. 

The memory allocation tracking ta- 
ble simplifies checking for an invalid 
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(continued from page 64) 

pointer. When x_/free is called, if the 
pointer is in the table, the space is 
freed and the pointer’s entry is removed. 
If the pointer is not in the table, then it 
is either invalid or it has already been 
freed (errors 2 and 3). 

Setting memtrace to 2 enables check- 
ing for changes to a freed block of 
memory (error 4). Instead of actually 
freeing the block, x_ free allocates a 
copy of the block (if the copy already 
exists, then we know that the block has 
been previously freed — error 3). Func- 
tion x_chkfree compares the copy with 
the original and reports any changes. 
Note that this option does not free any 
memory but uses virtually twice as 
much. The errors detected by this 
method are particularly treacherous, how- 
ever. Note that it is not really necessary 
to maintain a copy of the block in order 
to detect changes. A cyclic redundancy 
check (CRC) value (for example, check- 
sum) could be used instead. This would 
indeed identify that a change has oc- 
curred. The disadvantage of using a 
CRC, however, is that you do not know 
what was changed. With a copy, you 
can know the exact location of the 
changes and use a debugger (for ex- 
ample, Microsoft’s CodeView, placing 
a trace point on the changed location) 
to find the offending code. 

The memory allocation tracking ta- 
ble is constructed as a hash table. A 
hash table is a structure that stores an 
item in a location in the table that is 
computed based on the value of the 
item. In our case, a hash index is com- 
puted from the value of the pointer by 
casting the pointer to a Jong and com- 
puting its modulo based on the size of 
the hash table array. A hash table was 
chosen because of the amount and fre- 
quency of needed allocations in db_ 


trhash[hashsize-1]+ 


Figure 1: Memory allocation tracking table 
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DYNAMIC MEMORY 


QUERY. Depending on the complexity 
of the query, as few as ten but up to 
as many as several hundred allocations 
can occur during the setup and pro- 
cessing of a query. Thus, it is important 
to be able to locate a pointer’s position 
in the table quickly. 

The hash table consists of an array 
of pointers to buckets. A bucket stores 
information about each allocated pointer. 
Lines 39 through 55 in Listing One con- 
tain the hash table declarations. Field 
alloc in struct bucket is a dynamic array 


Prudent use of memory 
is enhanced by 
minimizing the 

software’s reliance on 

static memory and 
maximizing its use of 
dynamic memory 


of struct alloc_entry. This array will 
store up to bucketsize (line 28) allo- 
cated pointer entries. Each alloc entry 
contains the size of the allocated block, 
the pointer (ptr) to the allocated block, 
and a pointer to the copy of the block 
allocated when the block is freed. The 
size of the hash table is specified by a 
global int variable hashsize (line 27). 
This value must be odd (preferably 
prime) or the odd-numbered buckets 
will never be used. 

The hash table is a dynamic array of 








bucket pointers called ptrhash (line 55). 
Because more than bucketsize pointers 
could have the same hash value, the 
buckets contain a next pointer to allow 
additional buckets to be allocated and 
chained to the same ptrbash entry. Fig- 
ure 1 illustrates the structure of the 
memory allocation tracking table. 

Xmem defines two local functions 
that manage the hash table and report 
errors. Function sto_ ptrstores the speci- 
fied pointer and the size in the hash 
table. This function allocates the dy- 
namic memory for ptrhash the first time 
it is called. Line 75 computes the hash 
table index, which is used in line 78 to 
subscript the ptrhash array. Any buck- 
ets that exist for the computed ptrhash 
entry are searched in lines 77 — 80 for 
an available alloc array entry. If there 
is no available space, a new bucket is 
allocated and connected to the linked 
list dines 82 — 102). The pointer infor- 
mation is then stored into the next avail- 
able alloc array slot in the bucket (lines 
103 — 107). Function del_ ptrdeletes the 
specified pointer from the hash and 
frees the dynamic memory referenced 
by it. When the pointer is located (lines 
131 — 134), the gap is checked and, if 
changed, the error is reported (line 139). 
If memtrace is 1, the pointer is re- 
moved from the bucket and the dy- 
namic memory is freed (ines 145— 
161). If memtrace is 2, a copy of the 
allocated memory is made, unless one 
already exists, for comparison by func- 
tion x_chkfree (lines 164 — 171). 

When memtrace is nonzero, func- 
tion x_malloc calls malloc to allocate 
the requested memory, augmented by 
the extra gap space. It then calls sto_ ptr 
to store the pointer and size in the 
hash. Function x_calloc calls x_malloc 
to allocate the requested memory and 
then calls the standard C function mem- 
set to clear the allocated block. 
~ Function x_ free checks for a NULL 
pointer (something that, for some un- 
known reason, many implementations 
of free do not do), and if memtrace is 
nonzero, it calls del_ ptrto remove the 
pointer from the hash and free the space. 
If memtraceis 0, x_freesimply calls free. 

Function x_chkfree searches the hash 
table, reporting and freeing any point- 
ers that remain. If memtrace is 2, it 
checks for any changes to freed blocks. 
The hash table itself is also freed by 
x_chkfree. 

When errors are reported, a debug- 
ger is needed to track down the spe- 
cific source of the problem. For the 
case in which the gap has been over- 
written, you can record the value of the 
pointer and rerun the exact test sce- 
nario, setting a breakpoint, for exam- 
ple, at line 211 in x_malloc to find out 
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when and where that particular alloca- 
tion occurred. You can discover how 
the memory is to be used from the 
function calls stack. This will often be 
sufficient to reveal the problem. 

You could also use the debugger to 
break whenever the gap is modified, 
which would reveal the specific state- 
ment that is causing the problem. Un- 
fortunately, this kind of operation is 
very slow in most debuggers, primarily 
because of the lack of good hardware 
support for debugging. 

Setting a breakpoint at line 184 in 
function del_ ptr and then inspecting 
the function calls stack when the break- 
point occurs will often explain why a 
pointer to be freed is not in the table. 
Perhaps it has already been freed, or 
you see that the space being freed is 
actually static. 


Enhancements 

Many enhancements could be made 
to the functionality presented here. For 
example, it is often valuable to be able 
to free not only a single pointer but 
also all other dynamic memory that 
was since allocated. This could be accom- 
plished by adding an allocation num- 
ber to the alloc_entry struct that is as- 
signed the current tot_allocvalue when 
stored in the table. A new function 


called x_release could be added that 
would free all pointers in the table with 
an allocation number greater than that 
associated with the specified pointer. 
The CRC method of detecting changes 
to allocated memory described earlier 
could form the basis of a change-track- 
ing system whereby those dynamic vari- 
ables that had been modified by a given 
function could be reported. This could 
be implemented by adding a string ar- 
gument to x_malloc and x_calloc that 
contained the name of the pointer vari- 
able being allocated. The alloc_entry- 
struct would store this string as well as 
the current CRC value. A function that 
would be called as desired (for exam- 
ple, on exit from each function in the 
application program) would report the 
names of all variables that had different 
CRC values. If the application’s func- 
tion name were printed first, then the 
list could be inspected to ensure that 
the proper variables were modified. 


Conclusion 

Because memory has always been and 
still is a precious commodity, we have 
had to be frugal in our use of memory 
in the development of our programs. 
The ability in C to maximize the use of 
dynamic memory has allowed us to 
develop sophisticated software systems 





to run on small computers. C has often 
been criticized, however, for the ease 
with which catastrophic errors can Oc- 
cur resulting from the very use of these 
powerful features. Some people have 
even written off the use of C because 
of these problems. 

This article has presented proven tech- 
niques to detect and identify errors in 
the use of dynamic memory in C. As C 
and its supporting cast of development 
tools, particularly debuggers, continue 
to evolve, there is no doubt in my mind 
that these problems will be much more 
easily avoided. 
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C Procedure 


Tables 





Calling functions by the number 


he first time I heard of storing 

data in tables, it seemed com- 

pletely unnecessary. Drawing 

on my full two weeks of pro- 

gramming experience, I came 
to the conclusion that arrays were just 
too much work. 

Since that rather premature conclu- 
sion, I have found arrays to be one of 
the most useful tools for handling large 
quantities of data. I remember drawing 
a similarly premature conclusion when 
I first heard about an underused fea- 
ture of the C language — arrays of point- 
ers to functions. 

A pointer to a function contains the 
starting address of a subroutine. Just 
like a character pointer points to a char- 
acter in memory, a function pointer 
points to a function, which can be exe- 
cuted using the pointer. A function exe- 
cuted in this way performs exactly the 
same as a function executed using a 
standard call. Arguments can be passed 
to it, and a value can be returned from it. 

A function pointer by itself can be a 
handy tool, but it takes on a great deal 
more significance when stored with 
others in an array. We call such an 
array a “procedure table.” 

A procedure table is a powerful tool 
for software design. It is a method of 
storing procedures (functions and sub- 
routines) in a table so that the stored 
data can be accessed by using a nu- 
meric offset. This gives you a method 
for systematically controlling proce- 
dures, as in a loop, for example. 

To illustrate the use of procedure 


Tim Berens is president of Back Office 
Applications, Inc., a contract software 
house. He can be reached at 1250 W 
Dorothy Ln., Ste. 301, Dayton OH 45409. 
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Tim Berens 


tables, I have chosen a task that I have 
had to tackle in many systems and one 
that I have always found particularly 
cumbersome. At some point, a pro- 
gram usually prompts the user for a 
series of responses in order to gather 
parameters. These parameters may be 
used as query criteria for a report, for 
narrowing down a potential problem, 
as input for a graph, and so on. 

Gathering these parameters is com- 
plicated by the validation of the re- 
sponses, and by multiple possible paths 
through the prompts. For example, if 
the first prompt asks the user if a report 
is to be printed for a single account, a 
range of accounts, or all accounts, the 
second prompt depends on the user’s 
response. If the second and third prompts 
get the starting and ending account num- 
bers for a range, the program must 
validate that the ending account num- 
ber is larger than the starting account 
number. This goes on ad nauseam. 

It always bothered me to take the 
obvious approach to this problem. Gath- 
ering the parameters in this manner 
resulted in a mass of nested if/else 
phrases. This type of code is difficult to 
read and maintain and is not reusable. 
Procedure tables provide a better way. 


prompfter// 

Listings One and Two, on pages 128 and 
130, illustrate prompter( ). The goal of 
prompter( ) was to develop a reusable 
routine that prompts a user, validates 
responses, and performs actions based 
on those responses. prompter( ) must 
be able to handle unique validations 
and multiple paths through the dialog. 
It does this by executing functions stored 
in a procedure table, which is imple- 
mented as an array of data structures. 


The basic building block of promp- 
ter() is the data structure question, 
which is declared as: 


struct question { 
char * text; 
char * response; 
int (*validate)( ); 
int (*doit)C ); 
int (*set)C ); 

I; 


The application that calls prompter( ) 
defines one or more arrays of this struc- 
ture. prompter( ) loops through the ar- 
ray(s) of structures according to the 
algorithm shown in Example 1. Let’s 
look at each member of question in 
detail. 


e question.text is the text of the 
prompt, such as “Do you want this 
report for one account, a range of ac- 
counts, or all accounts?” 

e question.response is a pointer to 
the variable that receives the user’s re- 
sponse. This allows prompter() to 
gather the parameters needed by the 
application. If question.response is 
set to NULL, prompter( ) assumes the 
application no longer needs the re- 
sponse and throws it away. 

e question.validate is the address of 
the routine that validates the response. 
For example, it may check to see that 
the account number entered is valid. 
If an error occurs, the function returns 
a unique non-zero code, and the error 
is handled downstream by the handle_ 
error( ) routine. 

e question.doit is the address of the 
routine that will perform the action, if 
any, associated with this question. For 
example, it might convert an ASCII ac- 
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(continued from page 68) 

count number to an integer and store 
it in the appropriate variable. 

e question.set is the address of a rou- 
tine that determines what the next ques- 
tion will be. It can tell prompter() to 
go on to the next question in the array 
or to jump to a new array of questions, 
depending on the response given by 
the user. For example, if the user re- 
quests a report for a range of accounts, 
this routine will tell prompter( ) to ask 
the questions stored in the range_of_ 
accounts array. If an error was encoun- 
tered, the routine can tell prompter( ) 
to ask the current question again, or 
to back up and restart the questions at 
a previous point in the array. 


The prompter( ) routine is itself quite 
small. It is nothing more than a trigger- 
ing mechanism for the functions stored 
in procedure tables, that is, a routing 
control to the proper routine. 

After each function executes, it re- 
turns a status code that indicates if it 
was successful. prompter() uses this 
value to route control to the error han- 
dler if an error is encountered. 

prompter( ) makes no decisions about 
which question structure to use as its 
basis for prompting the user. The ap- 
plication defines the arrays of question 
structures, and it is responsible for de- 
ciding what their contents are and the 
order they will be in. 

Several routines are provided to sim- 
plify this job. These routines are called 
by the set member of question (ques- 
tion.set(_)), which decides what the next 
question will be based on the response 
given by the user. 


The prcontro/ Structure 

The prcontrol structure is the master 
control structure for promptert ). It con- 
tains all information regarding the cur- 
rent state of the prompting. A pointer 
to this structure is passed to every func- 


tion called from prompter( ). This al- 

lows the functions to examine and mod- 

ify the current state of prompter( ). 
The prcontrol structure is declared: 


struct prcontrol { 
int Current_question; 
struct question * current_group; 
int group_stack_ptr; 
char response[121]; 
int errstat; 
struct errormess * errormess; 


} 
Let’s look at each member in detail: 


e prcontrol.current_question is the 
offset of the current question in the 
array of question-data structures pointed 
tobyprcontroLcurrent_group. prcon- 
troLcurrent_question is set to zero on 
entry to prompter() and is typically 
incremented by question.set in order 
to go on to the next question. 

e prcontroLcurrent_group is a point- 
er to an array of question structures. 
This is the group of questions that is 
currently being asked. 

e prcontrol.group_stack_ptr is a part 
of the mechanism that allows promp- 
ter( ) to jump easily from one array (or 
group) of questions to the next. This 
permits prompter( ) to follow multiple 
paths through the prompts. See the 
discussion of multiple paths later in 
this article. 

e prcontrol.response is a buffer for 
holding the response entered by the 
user. 

e prcontrol.errstat is the error status 
returned from question.validate( ) or 
question.doit( ). Typically this value 
is examined by question.set( ) before 
deciding what route to tell prompter( )to 
take. It is also passed to handle_error( ) 
to display the proper error message. 

e prcontrol.errormess is a pointer to 
an array of errormess structures. This 
pointer is passed to handle_error( ) 


display current _question->text 


get response from user 


execute current question->validate 


if(no error on validate) { 
- : execute current question->doit 


} 


‘copy response to current question->response 


execute current _question->set 


if(error from validate) { 
call error handler 


} 


Example 1: Looping through an array 
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when an error is encountered so it can 
display the proper error message. 


Multiple Paths 

The ability to follow multiple paths is 
handled through the use of a stack, 
which is implemented as an array of 
group_stack structures. 

The group stack enables prompter( ) 
to jump to another group of questions 
without losing its place. It operates in 
a way similar to the stack in a C or 
assembler program. 

When a question.set( ) routine de- 
cides it must jump to another array of 
questions, it calls the routine start_ 
group( ). start_group() calls push_ 
group( ) to push prcontrolLcurrent_ 
group and prcontrol.current_ques- 
tion onto the group stack. 

When this group of questions is fin- 
ished executing, a question.set(_) rou- 
tine calls end_group(). end_group( ) 
calls pop_group( ), which pops prcon- 
troLcurrent_groupand prcontroLcur- 
rent_question off of the group stack. 
end_group( ) then increments prcon- 
troLcurrent_questionto continue at the 
next question, past the point where the 
other group of questions was called. 

This method allows a group of ques- 
tions to start another group of ques- 
tions, which can start another group 
of questions, and so on, and promptert ) 
can still easily return to the point at 
which it started. 


Error Handling 

Wouldn’t computer programs be much 
easier to write if we could assume that 
users never make mistakes? But of course 
we cannot assume this, so prompter( ) 
has an error handling mechanism. 

Any time an error is encountered by 
question.validate( ) or question.do- 
it(), the routine that detects the 
error returns a unique, non-zero value 
to prompter( ). This value is saved in 
prcontroLerrstat(). The routine in 
question.set( ) then decides how this 
error will effect the direction of the 
questions. 

This error status is then passed to the 
routine handle_error( ), whose respon- 
sibility is to build and display the proper 
error message. handle_error( ) works 
with an array of struct errormess. This 
array is declared: 


struct errormess{ 
int errstat; 
char * message; 
int (*build)¢ ); 
}; 
errormess.errstat is the value that iden- 


tifies the error, and errormess.mes- 
sage is the message that appears 
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Fast! 


ape 


The Windows Advantage 


You’ve selected Microsoft Windows as 
your graphical user interface. Windows 
applications are easier for end-users to 
learn and use. It is the standard for PCs. 

Now you want Windows applications 
completed as fast as possible. But it takes 
time for your programmers to get up to 
speed on the intricacies of Windows 
development. 


Why The Delay For 


Windows Applications? 

Programming for the Windows envi- 
ronment is very different from character- 
based programming. Just learning the 
450 Windows function calls can take 
months. Getting used to its event-driven 
system and memory management takes 
additional time. 

Programmers who are new to Windows 
development are looking for support to 
help them produce high-quality Windows 
programs quickly and efficiently. 


3 Ways To Speed Up Windows 


Application Development 

Now there are specific ways to speed up 
applications development under 
Windows. 


e Code reduction. There is a fast, effec- 
tive way to develop Windows applica- 
tions. A way that cuts the amount of 


Applications 


**How Did You Get 
This Windows Application 
Done So Fast? 


“Everyone Else Is Still 
Reading the Manuals..:’ 


code needed. A way that by-passes 
much of the complexity of Windows 
programming. A way that doesn’t 
compromise performance. 


e Short learning curve. There is an easy, 
convenient way to get your entire pro- 
gramming staff up to speed with 
Windows within weeks. 


e From prototype to complete applica- 
tion. There is a way to quickly develop 
prototypes of Windows applications 
in days, not months. Then, turn those 
into completed applications quickly. 


1 Product, 3 Solutions 
There is one product which brings 
all three solutions to your Windows pro- 
grammers. It’s called Actor® 
Actor is a proven product. It’s now 
being used in thousands of software de- 
velopment groups world-wide. 


Actor Does Windows 


Actor gives your programmers a fast, 
effective way to develop Windows appli- 
cations. Actor’s complete development 
environment allows you to produce every- 
thing from prototypes through stand- 
alone applications. Programs developed 
in Actor are fast and support all Windows 
features. 

Actor offers interactive source code 
debugging and testing—greatly reducing 
development time. Your programmers 
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benefit from high code reusability because 
Actor is an object-oriented programming 
language. This allows them to build on 
existing code, eliminating duplication of 
effort. They can even dynamically link to 
existing C code. 

Actor also provides one more essential: 
fast, responsive support from The White- 
water Group® recognized worldwide as 
leaders in Windows programming. 

If you are programming applications 
for Windows, you should be using Actor. 
Users report that Actor cuts Windows 
programming time by at least 50%. 

Discover what Actor can do for you. 


Act Now! 


See for yourself how Actor can help 
your Windows programmers! The first 
step is to order our free booklet, For 
Faster, Better, Smaller, Smarter Windows 
Programming. Examine detailed infor- 
mation about using Actor, complete with 
actual source code examples. 

Call us at 312/491-2370. We'll send 
you the booklet and complete details 
about Actor. 

Take 60 seconds now to save months of 
development time in the future. 


Keio [he WhitewaterGroup 
peed 906 University Place 
Evanston, [L 60201 
312-491-2370 


Microsoft is a registered trademark of Microsoft Corporation. Actor 
is a registered trademark and The Whitewater Group is a regis- 
tered servicemark of The Whitewater Group, Inc. 
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PROCEDURE TABLES 


(continued from page 70) 

when this error is encountered. error- 
mess.build is the address of the func- 
tion that will perform any extra format- 
ting of errormess.message. For ex- 
ample, if the error ACCOUNT_NOT_IN_ 
FILE is encountered, this routine might 
turn the message Account %s not in 
file into “Account 101 not in file.” 

The application program defines an 
array of these structures. When han- 
dle_error( )is called, it searches through 
this array until it finds a match. When 
a match is found it executes error- 
mess.build if errormess.build is not 
NULL. Then it displays the message. 


Is This Too Much Work? 

Before we dig into a specific example, 
let me try to address a question that 
many will have. Yes, this is too much 
work to go through to ask two ques- 
tions. But this is not too much work 
to go through to ask 200 or even 20 
questions. 

A method like this produces real sav- 
ings in development time. The reason 
is that system prompts occur in pat- 
terns. For example, a system we re- 
cently developed had about 20 reports. 
Each report required that the user speci- 
fied an output destination: printer, 
screen, or disk. The disk selection re- 
quires additional entry of a filename. 
If the file exists, the user has the option 
of overwriting that file, choosing a new 
file or appending the report to the file. 

The savings in development time is 
realized after the printer, screen, or file 
procedure tables have been built and 
the routines coded for the first time. At 
this point, all routines become data 
that is fed to prompter( ). Any program 
that needs to access this particular se- 
ries of questions as a part of its prompts 
simply calls start_group( ) from one of 
its question.set routines to start this 
group of questions. The printer, screen, 
or file prompts appear on the screen 
and when they have completed, the 
prompts go on from where they left 
off. The programmer never again has 
to worry about this series of prompts. 

As the number of this type of pattern 
of prompts increases, the value of 
prompter( ) as a development tool in- 
creases. prompter( ) can be even used 
to do a rudimentary form of reasoning 
by having it chew its way through a 
series of prompts from a user. It will 
eventually reach a conclusion. 


A Specific Example 

The example I have chosen to illustrate 
prompter( ) is a series of prompts that 
gathers parameters for a mythical ac- 
count report. The parameters that must 
be gathered are: 





e The account query criteria — the ac- 
count number or range of accounts to 
be included. 

e The display parameter’s record that 
is to be used. 

e Should the Over/Short report be 
printed automatically? 

e The report destination: printer, screen, 
or disk. 


Refer to Listing Three, page 130, for 
the code that handles this set of prompts. 


The savings in 
development time is 
realized after the 
printer, screen, or file 
procedure tables 
have been built and 
the routines coded for 
the first time 


account_parms is the array of struct 
question that provides the main flow 
of prompts. Its address goes into the 
prcontrol structure from main( ) be- 
fore the call to promptert ). 

You can see the flow of the prompts 
by reading the initialization of this ar- 
ray. Let’s look at the initialization of the 
first member in detail: 
account_parms[0].text points to “Do 
you want this report for a single ac- 
count or a range of accounts? (S or R).” 
This text will be displayed when the 
user is being prompted. 
account_parms|0).response points to 
single_or_range (which is an array of 
char). The response entered by the 
user will be copied here so the report 
program knows if the report is to be for 
a single account or a range of accounts. 
account_parms[0].validate is set to 
the address of the routine account_ 
or_range_val( ). This routine will make 
sure that the response is S or R. If not, 
account_or_range_val() returns the 
error status ENTER_S_OR_R and han- 
dle_error( ) prints the appropriate er- 
ror message. 
account_parms[0].doit is set to the 
address of no_op( ). This routine does 
nothing but return(O);. no_op( ) is used 
as a place holder, because no doit 
action is required for this prompt. It is 
necessary because prompter( ) will exe- 
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cute the function specified in account_ 
parms[0].doit, so a function address 
must be stored there. 

account_parms[0].set points to ac- 
count_or_range_set( ).Thisfunctionde- 
termines if the user entered S, R, or an 
erroneous response. If an error occurred, 
account_or_range_set() does noth- 
ing. This will cause the question “Do 
you want this report for a single ac- 
count or a range of accounts? (S or R)” 
to be asked again. If the user entered 
S, account_or_range_set(_) starts the 


A procedure table is a 
powerful tool for 
software design 


group that requests the single account 
number. If the user entered R, account_ 
or_range_set() starts the group that 
requests the range of account numbers. 

As you look through the code in 
Listing Two, you will see calls to sev- 
eral functions that assist with control 
of flow. These functions include: 


e start_group( ), which starts a new 
group of questions. 

e end_group(), which ends the cur- 
rent group of questions. It calls pop_ 
group( ) to restore the prompting to its 
previous state. 

e checkerror_next_question( ), which 
causes prompter( ) to go on to the next 
question unless an error was encoun- 
tered. 

e checkerror_end_group( ), which ends 
the current group of questions unless 
an error was encountered. 

e restart_group( ), which restarts the cur- 
rent group of questions. 


Notice that checkerror_next_ques- 
tion( Jand checkerror_end_group( )can 
be used as a question.set() routine 
in many cases (look at account_ 
parms[1].set). It is precisely this type 
of function reuse that saves develop- 
ment time over the long run. 

As you develop more and more code 
that uses prompter( ), you begin to no- 
tice patterns. Once a pattern has been 
discovered, you write a generalized rou- 
tine to handle the pattern, and this 
routine can be used over and over. 

I suggest that the simplest way to get 
a clear picture of how prompter( ) works 
its way through the procedure tables 
is to single-step your way through promp- 
ter( ) with a debugger like CodeView. 
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Suggestions for Improving prompfer// 
The first step to improve prompter( ) 
is to remove the printf( )//gets(_) inter- 
face, and attach a windowing-type 
interface. To do this, I suggest that 
you add an element to the question 
data structure. This element (question. 
form) is a pointer to a function that 
formats the output. Its job is to place 
the question text on the screen in its 
proper position, adjusting such attrib- 
utes as color. If you are careful to iso- 
late all screen positioning to only the 
question.form routines, you can later 
port the system to a different display 
by just rewriting these functions. 

Next, add a better keyboard input 


| routine. Most production systems do 


not use gets( ) for input. 

Finally, as you use prompter( ), you 
will notice that there is room for im- 
provement in the area of moving back- 
wards in the prompts. You can de- 
velop a more elegant approach by hav- 
ing the routine prompter( )automatically 
call pop_group() when it is at the 
end of a group. 


Back to Procedure Tables 

The point of this article was not to 
demonstrate how to prompt users for 
input but, to demonstrate the use of 
procedure tables. Procedure table tech- 
niques that are similar to those used in 
prompter() can be applied to a wide 
variety of tasks. We have used these 
techniques for the development of file 
maintenance programs, Communica- 
tions programs, parsers, menus, report 
generators, keyboard input validation 
routines, and others. 

We have found procedure tables to 
be extremely helpful for developing 
software that is flexible, bug free, and 
highly maintainable. Using procedure 
tables allows us to treat functions as if 
they were data, and this opens up a 
new world to system design. 


Availability 

All source code for articles in this issue 
is available on a single disk. To order, 
send $14.95 (Calif. residents add sales 
tax) to Dr. Dobb’s Journal, 501 Galves- 
ton Dr., Redwood City, CA 94063, or 
call 800-356-2002 (from inside Calif.) 
or 800-533-4372 (from outside Calif.). 
Please specify the issue number and 
format (MS-DOS, Macintosh, Kaypro). 


DDJ 
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Going From K&R 


To ANSI C 





Extending and codifying the C language 


ast September, the ANSI X3J11 

committee finalized the ANSI stan- 

dard for C and sent it up one 

level for final approval (which 

should occur this year). Culmi- 
nating five years of study and discus- 
sion, the standard is becoming the ba- 
sis for C compilers on many hardware 
platforms. In the MS-DOS world, every 
compiler has incorporated at least some 
of the ANSI features and many are com- 
ing close to full compliance with the 
standard. 

The committee began with the clas- 
sic ‘“White Book” of C, Brian Kernighan 
and Dennis Ritchie’s The C Program- 
ming Language, also known by the 
author’s initials of K&R. This thin white 
book defined the C language and was 
used by both implementors and users 
of C. Unfortunately, it was an incom- 
plete standard. Many decisions about 
the language’s facilities were left up to 
the compiler implementor. As C be- 
came more popular, it became clear 
that certain aspects of the language 
caused problems when debugging or 
porting programs. Because of these fac- 
tors, different C compilers included dis- 
parate extensions and features. 

In designing a standard for C, the 
ANSI committee had several goals in 
mind. First, they wanted to maintain 
compatibility with K&R. This meant mini- 
mizing changes that would invalidate 
existing K&R-compatible programs. In 


Scott Robert Ladd is a full-time com- 
puter journalist, who lives in the moun- 
tains of Colorado. He can be contacted 
through MCI Mail (ID: 369-4376) or 
at 705 W Virginia, Gunnison, CO 
81230. 
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addition, they wanted to codify and 
include common language extensions 
and programming practices. Finally, they 
wanted to improve the utility and port- 
ability of the language. This was not 
an easy task. 

In the end they did an admirable 
job. While some old-line C program- 
mers may grumble about having “their” 
language changed, the end result is 
that the ANSI standard is compatible 
with K&R and it enhances the language. 

This article is not designed to be a 
complete tutorial on ANSI C. Its goal is 
to explain how ANSI has added to C, 
and what changes may affect existing 
programs and programming practices. 
Several new facilities have been added 
to the language and can be exploited 
to improve program functionality, read- 
ability, and maintainability. In spite of 
the committee’s best efforts, there are 
some subtle changes that may occa- 
sionally catch the programmer who is 
unaware of them. 

The article is divided into three sec- 
tions that focus on the preprocessor, 
the language, and the standard library. 
In each section I'll discuss subtle 
changes and additions to that part of 
the language. Subtle changes are those 
that may “sneak” up on the unsuspect- 
ing programmer. Additions are new 
ANSI features that the programmer 
should be aware of. 


Preprocessor 

The preprocessor was changed signifi- 
cantly, and some of these changes can 
lead to problems when porting code 
between ANSI and K&R compilers. Many 
compiler vendors have not yet fully 
implemented the ANSI changes for fear 


that they would break existing code. 

A new preprocessor operator has 
been added: defined(name). Supplied 
with the name of a macro, defined( ) 
returns a true value if that macro has 
been defined, or false if it has not. This 
duplicates the function of the ifdef di- 
rective but allows for the use of Boolean 
operators for checking the definition 
of multiple macros. 

Two more preprocessor operators 
are new with ANSI: # and ## which 
affect the replacement of tokens in the 
replacement lists of macros. When a 
parameter in the replacement list of a 
function-like macro is preceded by a # 
operator, the corresponding argument 
is inserted at that point as a string lit- 
eral. The ## operator concatenates ad- 
jacent tokens in the replacement list; 
these newly-built tokens are then avail- 
able for further macro replacement. 

Due to operating system differences, 
the ANSI standard does not define a 
specific search method for a file speci- 
fied in a #include directive. K&R used 
Unix-style directory structures and file 
names when specifying how files were 
located, but many operating systems do 
not have similar or equivalent facilities. 

Under K&R it was possible to define 
the same macro in several places. How 
this was handled was implementation- 
dependent — most compilers merely 
used the last definition encountered. 
This practice can lead to problems, es- 
pecially when the definitions are stored 
in header files. ANSI’s solution was to 
disallow any macro redefinitions, un- 
less they were identical. 

K&R allowed for recursive macros 
that contained their own names in their 
expansion. This was a dangerous prac- 
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(continued from page 74) 

tice, leading to run-away preprocessing 
and logic problems. ANSI has made 
recursive macros illegal; the macro’s 
own definition is ignored while it is 
being expanded. This change can cause 
problems in code, which relied upon 
recursive macros. 

Two new directives were added: #er- 
ror is used to output an error message 
during preprocessing. The standard 
strongly suggests that #errorshould also 
halt compilation. To pass configura- 
tion information to the compiler the 
#pragma directive was invented. What- 
ever follows the #pragma is interpreted 
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in an implementation-defined manner. 
Any #pragmas that are not understood 
by the compiler are ignored. 

Another facility added was the #elif 
(for else if) directive. It eliminates many 
of the massive if... endif structures 
found in some programs. 

Some compilers allowed white space 
around the #, introducing a preproces- 
sor statement, but others did not. ANSI 
determined that the white space didn’t 
interfere with anything, so they decided 
to allow it. This means that white space 
can exist on either side of the #and can 
be used to format nested preprocessor 
statements. 
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Language 
The C language itself has undergone 
many changes. Most of the changes are 
additions, but some are clarifications 
of ambiguities in K&R or changes that 
may affect programming practices. 
The keywords entry, fortran, and 
asm have been deleted by ANSI. No 
one ever used entry, and both fortran 
and asm were considered non-port- 
able. ANSI does list fortran and asm 
in the common extensions, though. 
An ANSI-conformant compiler must 
allow for case-sensitive internal identi- 
fiers, which can be unique through their 
31st character. The original C compilers 
could only handle six to eight charac- 
ter identifiers. Because of linkages to 
other languages and older hardware 
architectures, however, external names 
are only required to be six characters 
long and are not case sensitive. In a 
future ANSI standard, the restriction on 
external names will be lifted. Program- 
mers should be aware of this change 
because some older programs may rely 
upon a lesser number of significant 
characters in an internal identifier. 
One area in which several changes 
have occurred is the declaration and 
definition of functions. Using a con- 
cept from C++, the ANSI committee 
added function prototypes to C. A pro- 
totype is a function declaration that 
defines the types of parameters for a 
function. For example 


int funcl(char * str, unsigned int 
lamount): 
This statement declares that the func- 
tion func1( ) returns an intand accepts 
two parameters: a char pointer and an 
unsigned integer. The identifiers strand 
amount are optional; their inclusion 
can improve the understanding of the 
nature of the function. When the com- 
piler processes a call to func1(), it can 
check to see if the types of the actual 
arguments match those specified in the 
prototype. This check prevents many 
common C errors, which occur when 
incorrect data types are passed to func- 
tions. It should be noted that this type 
checking can be circumvented through 
the use of proper casts. 
Prototypes have made minor changes 
in how some parameters work. In K&R 
C, float values were automatically pro- 
moted to doubles when passed as pa- 
rameters. Function prototypes can be 
used to force a float to be passed as a 
float. With the new rules that allow 
floats to be used in calculations with- 
out being promoted to doubles, library 
functions can be created to work 
entirely with floats. This eliminates 
the possible overhead of doubles when 
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the extra precision is not needed. 

The prototype style can also be used 
in function definition headers. This 
makes the headers resemble those from 
a Pascal or Modula-2 program. Under 
the new style funcl() would be de- 
fined as 


int funcl(char * str, unsigned int 
amount) 
/* program code */ 


whereas under the old style (still ac- 
ceptable under ANSI) it would have 
been written as 


int funcl(str, amount) 
char * str; 

unsigned int amount; 
/* program code */ 


Under ANSI, if the parameter list in a 
function prototype ends with ellipses, 
that function can accept a variable pa- 
rameter list. This function 


int func2Cint val, . . .); 


accepts one int parameter (type- 
checked) and an implementation-de- 
fined number of untyped parameters. 
The macros defined in stdarg.h are used 
to extract the untyped parameters. 

A function prototyped with an empty 
parameter list can accept any number 
of parameters of any type, and calls to 
it are not type-checked. You should 
be aware that many ANSI compilers 
enforce proper prototyping through 
warnings and errors. It is to your ad- 
vantage to use the type-checking capa- 
bilities found in ANSI C. 

ANSI has added some new types. 
The most significant of these additions 
is the void type. void represents the 
NULL set, in other words, an object of 
type void has no values. While this 
might seem to be a rather senseless 
type it does have some important uses. 

For example, a function that does 
not return a value can be defined with 
a return value of void. This eliminates 
the old problem in K&R where these 
functions implicitly returned a random 
int, the value of which was meaning- 
less. Also, a function can be proto- 
typed with void in its parameter list, 
indicating that the function does not 
accept any parameters. 

A void pointer is a pointer to any- 
thing. K&R C used char pointers for 
generic pointers. Any type of pointer 
can be assigned to a void *— and vice 
versa — without a cast. void pointers 
can be used to make functions that 
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access generic-area memory more con- 
veniently. Under K&R C, malloc( ) re- 
turned a char * pointer, which then 
needed to be cast to the pointer type it 
was assigned to. The ANSI version of 
malloc( ) returns a void *thereby elimi- 
nating the need for a cast. 

The keyword signed has been added 
by ANSI. This was in response to the 
need to explicitly declare a signed char 
(or in this case, a very small integer) 
type on implementations where the de- 
fault char type was unsigned. To keep 
the language consistent, signed is now 
allowed as a qualifier for all integral 
types. ANSI also made official the abil- 





ity to apply the unsigned qualifier to 
long and short types. 

A new floating-point type is the /ong 
double. It must be at least as precise as 
a double. Some MS-DOS implementa- 
tions have already included this type 
in 10-byte IEEE format. Jong float is, 
however, no longer a valid synonym 
for double. 

const and volatile are two new quali- 
fiers. Adopted from C++, the const quali- 
fier locks in the value of a data item, 
preventing its value from being modi- 
fied. For example, 


const double pi = 3.1415927; 
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would prevent the value of pi from 
being changed. When used in a func- 
tion prototype and definition, the const 
qualifier prevents the function from 
changing that argument. Several ANSI 
prototypes use const to safeguard 
the data accessed through pointer 
arguments. 

Under some circumstances, a data 
item may be changed by forces outside 
the scope of a program. The volatile 
keyword was invented to inform the 
compiler that a value may change asyn- 
chronously. This is required for opti- 
mizing C compilers that can make as- 
sumptions about the value of a data 
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item; volatile prevents these assump- 
tions from being made. 

The enumeration type has been in 
common use for years in some C dia- 
lects. Designated by the enum key- 
word, an enumerated type defines a 
special set of related integer values. 
For example 


enum rank (first, second, third); 
enum rank my_rank; 


my_rank = first; 


The value of type rank can be one of 
three possible values, first, second, and 
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third. first has an integral value of 0O, 
second a value of 1, and third a value 
of 2. An enumerated value can be used 
anywhere an intcan. The compiler can 
make checks to be sure that a value of 
type rank is assigned only those values 
listed in the definition of rank (known 
as enumeration constants). 

By default, enumeration constants are 
assigned consecutive integral values be- 
ginning with zero. Explicit assignments 
can be made, however, to preset the 
values of the constants. The enumera- 
tion type coin shows this facility: 


enum coin (penny=1, nickel=5, 
dime=10, quarter=25); 


Several changes have been made in 
numeric constants. Integral constants 
are automatically stored as int, long, 
or unsigned long values. The smallest 
integral type that can hold the constant 
is used. A new constant suffix, U(or u), 
can be used to specify that a constant 
is unsigned. As in K&R, a suffix of Z (or 
!) can be used to force the constant into 
a long value. 

Floating point constants are auto- 
matically stored as doubles, unless the 
constant has an F (or f/) suffix. The F 
suffix forces the constant to be stored 
as a float. 

Many pre-ANSI implementations of 
C extended the uses of structured types. 
These additions have been adopted in 
the ANSI standard, and structures may 
now be passed in function parameters 
by value. K&R did not allow this, and all 
structures had to be referenced by pointer 
parameters. In addition, ANSI allows 
functions to have structures as return 
values, and assignments can be made 
between structures of the same type. 

Early C compilers allowed both the 
<operator>= and =<operator> forms of 
the short-cut assignment operators. The 
latter form is somewhat ambiguous be- 
cause, for example, the = operator 
may indicate either subtraction or the 
assignment of a negative value. There- 
fore, the ANSI committee has specified 
the <operator>=format as the only valid 
forms of these operators. 

You will find that there are several 
defined types in ANSI C. These types 
were created to aid in portability. The 
K&R version of the sizeof operator re- 
turned an int, ANSI’s sizeof returns a 
value defined as size_t. size_t is de- 
fined as an implementation-specific in- 
tegral type. 

K&R defined a loose relationship be- 
tween pointers and integers. Pointer 
values could be assigned to integers 
and back again. Comparisons between 
pointers and integers were allowed but 
the results from such comparisons var- 
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ied from implementation to implemen- 
tation. 

The ANSI standard no longer defines 
integers and pointers as interchange- 
able. The only integral value that has 
any validity when compared to a pointer 
is O. In fact, the standard explicitly de- 
fines a NULL pointer as having an inte- 
gral value of O. Programs that rely upon 
pointer arithmetic and point integer con- 
versions may not be ANSI compatible. 

The const qualifier can be used to 
control changes to the pointer and the 
data it points to. A const int * for exam- 
ple, would be a pointer to a constant 
integer. The pointer can be changed 
but not the value it points to. The dec- 
laration int * const denotes an unmodi- 
fiable pointer to a changeable integer 
value. 

The only significant change made 
by ANSI to executable statements af- 
fects the switch statement. Under K&R, 
only int values were allowed for the 
controlling expression, and now they 
may be of any integral type, including 
long and unsigned values. 


Library 

K&R did not specify a complete library 
for C. It discusses the standard I/O func- 
tions commonly found in stdio.b and 
several functions from the Unix library. 
The latter primarily consists of low-level 
I/O functions, which have been dropped 
from the ANSI standard for portability 
reasons. An example of a dynamic mem- 
ory allocator is included but malloc( ) 
and company are absent. No math or 
string functions are discussed. 

In order to promote portable pro- 
grams, ANSI created a standard library 
and a standard set of headers to go 
with it. There are a total of 15 ANSI 
headers. Some functions that were de- 
fined by K&R in stdio.h are now found 
in other headers like stdlib.h. The fol- 
lowing is a list of the headers and a 
short description of the functions found 
in them. 


assert.b — Diagnostics macro 

The assert macro is commonly defined 
for most existing C implementations. 
It is used to place diagnostic tests in 
programs. assert accepts a single pa- 
rameter. When the parameter is false 
(a zero value), assert displays the name 
of the source file and the current line 
number to the standard error device. 
The abort( ) function is then called. 


ctype.b — Character handling 

These functions not only test charac- 
ters to see if they are in a certain range 
but also change the case of certain 
characters. For example, the isalphac( ) 
function tests to see if its parameter is 
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an alphabetic character. toupper( ) con- 
verts a lowercase letter to an uppercase 
one. The locale (see Jocale.h later in 
this text) setting can affect how these 
functions work. In K&R, these facilities 
were defined in stdio.h. 


errno.h — Standard errors 

Several library functions return error 
code in a value called errno, which is 
defined in this header along with its 
possible values. These error values are 
highly implementation-dependent. 


float.b — Floating-point limits 
There are several macros in this header 


that expand to values for limits and 
ranges for floating-point values. 


limits.b — Integer limits 

This header is similar to float.h but 
defines limits and ranges for integral 
values. 


locale.b — Localization 

In making C an international language, 
it became clear that a mechanism 
was needed to allow country- or loca- 
tion-specific information to be set. 
Things such as decimal point charac- 
ters and currency characters change 
from place to place. The macros, struc- 
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tures, and functions found in locale.h 
help make writing portable programs 
easier. 


math.b — Mathematics 

Mathematical functions have always 
been a part of C but until ANSI they 
were largely implementation-defined. 
This header declares functions for trigo- 
nometric, hyperbolic, logarithmic, and 
utility operations. 


setjmp.hb — Non-local jumps 

Using the setjmp() macro and the 
longjmp( ) function, a program can lit- 
erally jump from any location within 
itself to any other. While the capability 
may violate the principles of structured 
program design, it can be useful when 
an exception condition occurs in a 
deeply-nested portion of a program. 


signal. b — Signal handling 

A signal is an exception condition. The 
functions signal( )and raise( ) provide 
a portable method for handling excep- 
tions, such as program breaks and float- 
ing-point errors. These ANSI functions 
are based on those defined for Unix. 
raise( ) replaces the Unix kill() and 
eliminates the latter's support for 
multiprocessing. ANSI implemented a 
subset of the signals defined for Unix 
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and allows each implementation to de- 
fine signals of their own. 


stdarg.b — Variable arguments 
Defined in this header are a set of 
macros that can be used to write port- 
able functions accepting variable num- 
bers of parameters. Many compilers pro- 
vide a different set of macros based 
on the Unix V compile. In my experi- 
ence, the ANSI macros are clearer and 
easier to use than the Unix macros. 


stddef.b — Common definitions 
ANSI defined a number of standard 
types and macros most of them are 
here and some may be repeated in 
other headers as well. Among the defi- 
nitions in stddef-h are: NULL, size_t(the 
return value type of the sizeof opera- 
tor), and the offsetof macro. An inven- 
tion of ANSI, offsetof is a macro that 
determines the byte-offset of a member 
within a structure. 


stdio.b — output 

This header defines and prototypes most 
of the functions listed in Chapter 7 of 
K&R. Few, if any, changes were made 
in the definitions found in K&R but 
several new functions have been added. 
There are now functions for working 
with temporary files (with random, 
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unique names). remove( ) deletes files 
and replaces the Unix-specific unlink( ). 
Using setubuf() (borrowed from Unix 
V), the programmer can control the 
buffering of I/O streams. Two new file 
positioning functions, /getpos( )and fset- 
pos( ), have been added to handle files 
longer than fseek( ) can cope with. 


stdlib.b — General utilities 

This is the “kitchen sink” header, con- 
taining definitions and prototypes for 
a wide variety of unrelated functions. 
Included are numeric-to-string conver- 
sions: the malloc( ) family of memory 
allocation functions, random number 
functions, abort and exit facilities, bi- 
nary search and quicksort functions, 
multibyte character functions (for work- 
ing with foreign alphabets), and mis- 
cellaneous integer functions. Many ex- 
isting compilers have their own head- 
ers for these functions, and you may 
need to determine how many of the 
non-standard headers are still required. 


string.b — String handling 

Here is where you'll find the functions 
for manipulating strings. Most of these 
functions have been around as long as 
C has, and several are defined in K&R. 
Also included in the header are proto- 
types for the memory functions, which 
work similar to the string copy/move/set 
functions. The memory functions are 
designed for modifying memory through 
generic (non-character) pointers. 


time.b — Date and time 

While date and time functions exist in 
most C libraries, there is almost no 
standardization between implementa- 
tions. ANSI designed the functions de- 
clared in this header to provide a full 
spectrum of date and time facilities. 
Conversion functions are provided to 
convert integral times to structures to 
text strings. 


Converting to ANSI may mean mak- 
ing minor changes in the library facili- 
ties you use and how you use them. 


Conclusions 

I hope that this overview gives you a 
sense of the effects the ANSI standard 
will have on your programming style 
and existing applications. Converting 
old programs to ANSI C should not be 
an arduous task. We should all be grate- 
ful to the X3J11 committee for the work 
that they have done; their standard will 
help move C into the 1990s. 
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A Generic Heapsort 
Algorithm in C 





Heapsort is an excellent sorting algorithm for 


. hen faced with the prob- 
lem of sorting data, many 
programmers choose a sim- 
ple algorithm, such as in- 
sertion or selection sort, or 

maybe Shellsort. Quicksort is another 

common choice, at least for languages 

that support recursion: The gsort li- 

brary function makes this choice par- 

ticularly easy for C programmers. Sur- 
prisingly few programmers choose the 

Heapsort algorithm, perhaps because 

it is not an intuitive algorithm: The 

other algorithms are certainly easier to 
understand. Heapsort, however, has 
some advantages over its competitors. 

With Heapsort, the time taken to sort 
mn items is proportional to n log n, re- 
gardless of the initial order of the data. 
In comparison, although Quicksort has 
an average performance of n log n, 
some data cause it to execute in time 
proportional to n’. The other algorithms 
also have a worst-case performance of 
n*. When sorting large amounts of data, 
the difference between a guaranteed 
speed of m log n versus a worst-case 
of n? is significant. 

In addition, Heapsort is not a recur- 
sive algorithm, making it suitable for 
languages —such as Basic and Fortran — 
that do not support recursion. Even for 
languages, such as Pascal and C, elimi- 
nating the recursion may lead to a faster 
algorithm, depending on the cost of 
procedure calls. The cost of saving and 
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restoring registers for each call may be 
significant on some machines. 
Heapsort, however, has its disadvan- 
tages. For small sets of data, the sim- 
pler algorithms may actually perform 
better, due to their lower overheads. 
Choosing the right algorithm for a par- 
ticular application requires careful analy- 
sis and knowledge of the tradeoffs in- 
volved. Books on algorithm design, such 
as Sedgewick’s Algorithms (Addison- 
Wesley, 1983) and Gonnet’s Handbook 
of Algorithms and Data Structures (Ad- 
dison-Wesley, 1984), provide useful 
guides to help make the right choice. 
Even with these caveats, Heapsort 
is a strong candidate for inclusion in a 
programmer’s library of standard tools. 
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The rest of this article describes a ge- 
neric Heapsort function, modelled on 
the C gsort function. This function al- 
lows an arbitrary array of data to be 
sorted, when provided with a function 
to compare elements of the array. 


How Heapsort Works 

The Heapsort algorithm is based on 
an interesting data structure —the heap. 
Heaps are typically used for applica- 
tions in which the maximum or mini- 
mum value is needed from a changing 
collection of data. When an item is 
added to or removed from a heap, the 
heap can be rearranged to find the new 
maximum (or minimum) value in log 
n steps. This process is a very efficient 


Initial array 
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HEAPSORT 


way to implement priority queues, and 
it forms the basis of Heapsort. 

A heap is a partially ordered array 
of data, organized as a special form of 
binary tree, with the following proper- 
ties. First, for each node in the tree, the 
node’s value is greater than the values 
of either of its child nodes, which im- 
plies that the root of the tree contains 
the maximum value of all the nodes. If 
the minimum value is needed instead, 
each node must have a lesser value 
than its children. Second, the tree is 
fully balanced, and each level of the 
tree is filled from left to right. This 
property allows the tree to be con- 
structed using an array, rather than ex- 
plicit pointers. If the first item of a heap 
His H[1/ then its two children are H/2/ 
and H/3/. Similarly, the children of H/2/ 
are H/4/and H(/5/. In general, the chil- 
dren of A/i/ are H/2i/and H/2i+1/, and 
the parent of H/k/is H[k/2/. 

Converting an array of arbitrary data 
to a heap involves rearranging the val- 
ues in the array until the ordering prop- 
erty of a heap is satisfied. This conver- 
sion is usually realized by working 
through the tree from the bottom up. 
For array H containing 7 items, start 
by considering the last item that could 
have children — H/k/, where k is n/2. 
F[k/ is compared to its children H/2k/ 
and H/2k+1/. If H/k/is less than one or 
both of its children, it is swapped with 
the greater child, say H/j/, Then com- 
pare the new value in A/j/ with its two 
children, and perform another swap if 
needed. Eventually, you will reach a 
node that has no children, or a spot 
where no swap is needed. At this point, 
the subtree starting at H/k/is organized 
as a heap. This process is performed 
for all values of k from n/2 to 7. After 
the last iteration, the array is a heap, 
and H/1/contains the maximum value. 
Figure 1 shows the process of con- 
structing a heap from a collection of 
numbers. The tree structure of the heap 
is shown in Figure 2. 


The Heapsort Algorithm 
Heapsort works in two phases. In the 
first phase, the data is rearranged in the 





Figure 2: The tree structure of the heap 





array to form a heap; this moves the 
maximum data value to the first posi- 
tion of the array. In the second phase, 
the maximum value is swapped with 
the last element in the heap, and the 
size of the heap is. reduced by one. 
This phase puts the maximum data value 
in its final position in the array. How- 
ever, the element now occupying the 
first position may not be the next maxi- 
mum: The next maximum is found by 
rearranging the remaining elements of 
the heap. The process of finding the 


Heapsort 1s not a 
recursive algorithm. 
This makes it suitable 
for languages, such as 
Basic and Fortran that 
do not support 
recursion 


maximum value in the heap, and mov- 
ing it to its final position, continues 
until the heap is reduced to a single 
element. Figure 3 shows Heapsort in 
operation for the heap constructed in 
Figure 1. 

Listing One (page 86) shows an im- 
plementation of the Heapsort algorithm 
for sorting an array of integer values. 
Most of the work is performed by the 
function call fixheapth,i,n), which en- 
sures that the subheap starting at posi- 
tion h/i/ is correctly ordered. As I de- 
scribed previously, the value of i goes 
from 7/2 to 1 while constructing the 
heap. In the second phase, the value 
of iis always 7, with the value of n 
decreasing as each maximum value is 
extracted from the heap. 

The fact that arrays in C are indexed 
from O, rather than 7, is adjusted for in 


Element Address 













h[O] baseO 

h[1] base0 + size 

hfi] baseO + gap 

h[2i] baseO + gap + gap 
h[2i+1] baseO + gap + gap + size 


Table 1: The relationship between the 
heap elements and expressions 
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(continued from page 82) 

the first statement in hsort() by de- 
crementing the pointer to the base of 
the array. This adjustment allows the 
rest of the algorithm to consider the 
array as starting at h/7/. 


A Generic Heapsort 

The hAsort() function in Listing One 
can be easily changed to sort, for ex- 
ample, arrays of float or char values. 
With a little extra effort, bsort() can 
also sort data that are accessed indi- 
rectly through an array of pointers, or 
data with multiple sort keys. Having to 
modify the algorithm each time a par- 
ticular sort is needed, though, is incon- 
venient and error-prone. A generic Heap- 
sort is needed that can sort arbitrary 
data when provided with an appropri- 
ate function to compare values. Such 
a function is shown in Listing Two 
(page 86). 

Modelled on the C qsort() library 
function, the version of hsort() shown 
in Listing Two sorts an array of 1 items, 
with each element “size” bytes in length. 
The cmp argument is a pointer to a 
comparison function. Each time 
Jixheap( ) needs to compare elements, 
it calls this function, passing the ad- 
dresses of the two items as arguments. 
The function then returns a value less 
than, equal to, or greater than zero, 
depending on whether the first item is 
less than, equal to, or greater than the 
second. 


HO] H2) HE3) Hi4] HES) HI 





The version of hsort( ) in Listing Two 
is derived directly from the simple ver- 
sion in Listing One. Unfortunately, each 
calculation of the address of an ele- 
ment involves a multiplication by the 
size of the elements. On many comput- 
ers, multiplication instructions are slow. 
It is possible, however, to rewrite the 
algorithm to eliminate these multiplica- 
tions completely. This leads to a sig- 


Heapsort is a strong 
candidate for inclusion 
in a programmer's 
library of standard tools 


nificant speed improvement. A further 
increase in speed can be gained by 
expanding the calls to fixheap( ) and 
swap ) inline. 

The final version of Heapsort is given 
in Listing Three (page 86). It is derived 
from the algorithm in Listing Two by 
performing induction variable elimina- 
tion, as might be done by an optimiz- 
ing compiler. The critical optimization 
is calculating the distance in bytes be- 
tween the addresses of the elements 
hlO}, bli/, and h[2i]. For a given value 
of i, the distance is i * size, where size 


Initial heap 
Swap H [1] and H [n] — 
SwapH[t]andH[2] 


Swap H [1] and H [n] 
Swap H [1] and H [nl] 
Swap H [1] and H a , 
Swap H 2] and H In | | 
Swap H [1] and H én 


Final sorted array 


___ Note: Circled items are not compared: they are just swapped. — 


Figure 3: Sorting the heap 
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is the size of each element. Table 1 
shows the relationship between the 
heap elements and expressions for their 
addresses. The variable gap is the cal- 
culated distance, and base0 is the ad- 
dress of the element h/O/. 

The next step is to note that as i 
decreases during the heap construction 
phase, the value of gap is reduced by 
size for each iteration. The initial value 
for gap is n * size / 2, and it is the only 
step where multiplication is required. 
The address of h/n/ is also calculated 
and stored in the variable hi. During 
the second phase of the sort, the value 
of hi is decreased by size for each 
iteration, which corresponds to decre- 
menting 7. Although these optimizations 
result in a more complex algorithm, 
they are worthwhile given its intended 
use as a standard library function. 


Using Asort// 

Listing Four (page 88) shows an exam- 
ple that uses Asort( ) to sort an array of 
strings, which are read from input. Each 
element of the array is of type char * 
The cmp() function is passed two 
char ** pointers and uses strcmp() to 
compare the strings. After the strings 
are sorted, they are written to standard 
output. 


Conclusion 

The algorithms presented in this article 
cover a range of complexity and versa- 
tility. For some applications, the simple 
algorithm given in Listing One may 
perform best, and it provides a skele- 
ton that can be extended for special 
purposes. The generic Heapsort given 
in Listing Three provides a useful li- 
brary function, which can be used at 
any time data need sorting. Its general- 
ity, however, does incur a small cost 
in performance compared to a special- 
purpose sort. This cost will be accept- 
able for most applications. Choosing 
the right approach is, of course, part 
of the craft of programming. 
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Listing One (Text begins on page 81.) 


* Use Heapsort to sort an array of n integers. 


static 
fixheap(h, i, n) 
int *h; 
unsigned i, n; 
{ 
unsigned k; 
int tmp; 


while ((k = 2 * i) <= n) 
{ 


/* h[{k] = left child of h[i] */ 


/* Find maximum of left and right children */ 
if (k !=n && h[{k+l] > h[k]}) 
++k; /* right child is greater */ 


/* Compare greater of children to parent */ 
if (h[{i] >= h[k)) 
return; 


/* Parent is less than child, so swap */ 
tmp = h[k]; h[{k] = h[i]; h[{i] = tmp; 
i =k; /* move down tree */ 


} 


hsort(h, n) 
int *h; 
unsigned n; 
{ 


unsigned i; 


int tmp; 
--h; /* adjust for zero-origin arrays in C */ 
for (i = n/2; i > 1; --i) 


fixheap(h, i, n); 
while (n > 1) 
{ 


/* build heap, except for h[1] */ 


fixheap(h, 1, n); /* move max to h[1] */ 


tmp = h[1]; /* move max to final position */ 
h[{1] = h[n); 

h(n] = tmp; 

=; /* reduce size of heap */ 


End Listing One 
e 
Listing Two 
/* 
* Generic Heapsort, derived from Listing One. 
aif 
#define H(k) (h + k * size) 
static 
swap(pl, p2, n) /* swap n bytes */ 
char *pl, *p2; 
unsigned n; 
{ + 
char tmp; 
while (n-- != 0) 
{ 
tmp = *pl; *plt++ =.*p2;. *p2++ = tmp; 
} 
} 
static 
fixheap(h, size, cmp, i, n) 
char *h; 
unsigned size, i, n; 
int (*cmp) (); 
unsigned k; 
while ((k = 2 * i) <= n) 
{ 
if (k !=n && (*cmp) (H(k+1), H(k)) > 0) 
++k; 
if ((*cmp) (H(i), H(k)) >= 0) 
return; 
swap(H(i), H(k), size); 
1 =k; 
} 
} 
hsort(h, n, size, cmp) 
char *h; 
unsigned n, size; 
int (*cmp) (); 
{ 
unsigned i; 
h -= size; 
for (i = n/2; i> 1; --i) 
fixheap(h, size, cmp, i, n); 
while (n > 1) 
{ 
fixheap(h, size, cmp, 1, n); 
swap(H(1), H(n), size); 
} 
} End Listing Two 
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/* 

* Generic Heapsort. 

* Synopsis: 

x hsort (char *base, unsigned n, unsigned size, int (*fn) ()) 

* Description: 

* Hsort sorts the array of ‘n’ items which starts at address ‘base’. 

* The size of each item is as given. Items are compared by the function 
* ‘fn’, which is passed pointers to two items as arguments. The function 
* should return < 0 if iteml < item2, == 0 if iteml == item2, and > 0 

* if iteml > item2. 

* Version: 

* 1988 April 28 

* Author: 

* Stephen Russell, Department of Computer Science, 

* University of Sydney, 2006 

* Australia. 

*/ 


#ifdef INLINE 


#define swap(pl, p2, n) {\ 
register char * pl, * p2;\ 
register unsigned _n;\ 
register char tmp; \ 


\ : 
for (pl = pl, p2 = p2, n=n; n-- > 0; )\ 
iA 
_tmp = *_pl; *_pl++ = * p2; * p2++ = tmp; \ 
h\ 
b\ 
#else 
/* 
* Support routine for swapping elements of the array. 
*/ 
static 


swap(pl, p2, n) 
register char *pl >. *p2y 
register unsigned n; 
{ 
register char  ctmp; 
/* 
On machines with no alignment restrictions for int’s, 
the following loop may improve performance if moving lots 
* of data. It has been commented out for portability. 
register int itmp; 
for ( ; n > sizeof(int); n -= sizeof (int)) 
{ 
itmp = *(int *)pl; 
*(int *)pl = *(int *)p2; 
pl += sizeof (int); 
*(int *)p2 = itmp; 
p2 += sizeof (int); 
} 
"7 
while (n-- != 0) 
{ 


} 


ctmp = *pl; *pl++ = *p2; *p2++ = ctmp; 


} 


#endif 

/* 
* To avoid function calls in the inner loops, the code responsible for 
* constructing a heap from (part of) the array has been expanded inline. 
* It is possible to convert this common code to a function. The three 
* parameters base0, cmp and size are invariant - only the size of the 
* gap and the high bound of the array change. In phase l, gap decreases 
* while hi is fixed. In phase 2, gap == size, and hi decreases. The 
* variables p, q, and g are only used in this common code. 

+f 

hsort (base, n, size, cmp) 

char *base; 


unsigned n; 
unsigned size; 


int (*cmp) (); 
{ 
register char *p, *q, *base0, *hi; 
register unsigned gap, g; 
if (n:< 2) 
return; 
base0 = base - size; /* set up address of h[0] */ 
/* 


* The gap is the distance, in bytes, between h[0] and h[i), 

* for some i. It is also the distance between h[i] and h(2*i]; 
* that is, the distance between a node and its left child. 

* The initial node of interest is h{n/2] (the rightmost 

* interior node), so gap is set accordingly. The following is 
* the only multiplication needed. 


aT, 
gap = (n >> 1) * size; /* initial gap is n/2*size */ 
hi = base0 + gap + gap; /* calculate address of h[n] */ 
if (n & 1) 
hi += size; /* watch out for odd arrays */ 
/* 


* Phase 1: Construct heap from random data. 

* For i = n/2 downto 2, ensure h[i] is greater than its 

* children h[2*i] and h[2*i+l]. By decreasing 'gap’ at each 

* iteration, we move down the heap towards h[2]. The final step 
* of making h[1] the maximum value is done in the next phase. 


(continued on page 88) 
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cue Psi? . : swap(base, hi, size); /* move largest item to end */ 
Listing Three (Listing continued, text begins on page 81.) 
for (; gap != size; gap -= size) End Listing Three 
{ 
/* fixheap(base0, size, cmp, gap, hi) */ 
for (p = base0 + (g = gap); (q =p +g) <= hi; p = q) Listing Four 
{ 
=g; + 1 * /* 
ars pe ONS OAR LOR WG Ae * Use hsort() to sort an array of strings read from input. 
/* af 








* Find greater of left and right children. 
di #include <stdio.h> 





#define MAXN 500 
#define MAXSTR 1000 





if (q != hi && (*cmp) (q + size, q) > 0) 
{ 





q t= size; /* choose right child */ 








g += size; /* follow right subtree */ cmp(pl, p2) 
} char **pl, **p2; 
j* { 
* Compare with parent. return strcmp(*pl, *p2); 
. } 





if ((*cmp) (p, q) >= 0) 
break; /* order is correct */ static char *string[MAXN]; 
Static char buf [MAXSTR]; 





swap(p, q, size); /* swap parent and child */ 
} extern char *gets(); 
extern char *malloc(); 






~ 




















* main () 
* Phase 2: Each iteration makes the first item in the { 
* array the maximum, then swaps it with the last item, which char *p; 
* is its correct position. The size of the heap is decreased int. 1, nn} 
* each iteration. The gap is always "size", as we are interested for (n = 0; gets(buf); ++n) 
* in the heap starting at h[1]. 
*/ if (n == MAXN) 
. ; { 
a ( ; hi != base; hi -= size) fprintf(stderr, "Too many strings\n"); 
exit (1); 
/* fixheap(base0, size, cmp, gap (== size), hi) */ } 
p = base; — /* == base0 + size */ p = malloc(strlen(buf) + 1); 
ie (g = size; (q = p + g) <= hi; p = q) if (p == (char *)NULL) 
{ 
gt gq fprintf(stderr, "Out of memory\n"); 
if (q != hi && (*cmp) (q + size, q) > 0) exit (2); 
{ } 
q += size; 
g += size; strcpy(string[n] = p, buf); 
} } 
if ((*cmp) (p, q) >= 0) hsort (string, n, sizeof string[0], cmp) ; 
break; for (i = 0; i <n; ++i) 





puts(string[i]); 
exit (0); 





swap(p, q, size); 
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This month Scott Ladd re- 
ports the benchmark results 
as part of a follow-up on the 
review he presented in the 
May issue: “QuickC versus 
Turbo C.” In addition, the 
Doctor examines Compu- 
View’s “VEdit Plus,” Magna 
Carta’s “‘C Windows Toolkit, ”’ 
and Genus’s “PC'X Program- 
ming Toolkit.” 









Benchmarking 
Turbo C and 
QuickC 


Wrapping up the 
comparison 





Scott Robert Ladd 


his benchmark report is a follow- 
up to the comparative review 
of Microsoft’s QuickC 2.0 and 
Borland’s Turbo C 2.0 that ap- 
peared in the May issue. That 
article was a qualitative comparison. 
This one is quantitative and measures 
the performance of the two under simi- 
lar conditions. As I’ve said before and 
I'll say again, no set of benchmarks can 
truly reveal how good a product is. The 
only purpose benchmarks serve is to 
give a general idea of how well a given 
compiler performs on certain types of 
code. (And speaking of code, because 
of space constraints, I’m not including 
the programs used to generate the re- 
sults. If you’d like to see them, though, 
they ll be posted on DD/s CompuServe 
forum and are available through the 
DD] editorial offices.) 
For this comparison, I used five tests 
whose results appear in Table 1. Dhry- 


Scott Ladd is a full-time, free-lance 
computer journalist. You can reach 
him at 705 W Virginia, Gunnison, 
CO 81230. 
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stone 2 is an updated version of the 
famous Dhrystone benchmark, which 


represents the statistical “average” pro- 


gram. Because Dhrystone comes in 
three files, it made an excellent test for 
the make facilities. 

FXREF is a filter. It reads in a text file 
from standard input, and builds a bi- 
nary tree of the text tokens and their 
line-number references. Once the file 
has been read and displayed, a cross 
reference is printed from the binary 
tree. I have used FXREF in the past as 
a useful benchmark of I/O and dy- 
namic memory allocation speed. 

Both compilers provide a graphics 
library, and thus was born the GRAPH 
benchmark. It is actually a simple, three- 
part test. Part one tests line-drawing 
speed, part two looks at the quickness 
of drawing ellipses, and part three times 
the rapidity of filling an irregular area 
with a solid color. Two separate pro- 
grams were created, one for each com- 
piler, due to the differences in initiali- 
zation code and function names. 

GRIND is a report program. It reads 
1000 floating point numbers from disk 
and sorts them, then calculates a table 


timings (seconds) 

compile 

link 

run 
Dhrystones/second 
.EXE size (bytes) 


DMATH 
timings (seconds) 
compile 
link 
run 
emulator 
coprocessor 
.EXE size (bytes) 
emulator 
coprocessor only 


FXREF 
timings (seconds) 
compile 


link 
overall run 
.EXE size (bytes) 


GRAPH 

timings (Seconds) 
compile 
link 
emulator run 
coprocessor run 

.EXE size (bytes) 
emulator 
coprocessor 


GRIND 
timings (seconds) 
compile 
link 
run 
emulator 
coprocessor 
.EXE size (bytes) 
emulator 
coprocessor 


of values, which it writes to disk. 

Many floating point benchmarks test 
the speed of library functions more 
than the quality of floating point code 
generated. DMATH solves this prob- 
lem by avoiding the use of any library 
functions. All variables in the program, 
including loop counters, are doubles. 
DMATH calculates the sines of all of 
the angles from 0 to 359 degrees, using 
a simple series. 

The benchmarks were conducted on 
an Intel-motherboard 80386 machine 
running at 16 MHz. The computer was 
equipped with an 80387 coprocessor, 
2 Mbytes of memory, and an EGA card 
and monitor. Timing was performed 
by a program that resets the interrupt 
timer to 1/100th of a second of accu- 
racy, and each timed test result is the 
average of five iterations. Tests were 
run for both the emulator and copro- 
cessor floating-point packages, when- 
ever possible. All times for compiles 
and links are for the command-line ver- 
sions. QuickC’s incremental compilation 
and linking would speed it up immensely 
on developmental program builds. Com- 
pile speeds were tested with all debug 


11.80 
5.28 
19.45 
2,071 
9,692 


7.31 
7.90 


170.21 
5.44 


20,546 
10,706 


9.81 
5.16 
31.47 
8,710 


9.28 
10.16 
158.85 
158.52 


38,720 
28,864 


9.10 
791 


28.10 
17.74 


20,976 
16,136 





Table 1: QuickC versus Turbo C benchmark results 
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options and warnings turned off. 

The command-line options used for 
QuickC were -Ox -FPi. For Turbo C, 
the options were -Z -O -G -d. The 
-FPi87 flag was used with QuickC to 
generate the coprocessor tests, and the 
-{87 flag was used for the same pur- 
pose with Turbo C. 

Some immediate trends can be seen 
by looking at the benchmark table. The 
compile times for QuickC and Turbo 
C are very close together, but the Turbo 
C linker runs much faster by far. It’s 
important to note that these compiles 
are for the entire modules; using 
QuickC’s incremental compilation and 
linking features make it considerably 
faster than Turbo C. 

The most surprising run-time result 
is Turbo C’s poor performance on the 
GRAPH test. The ellipse() and flood 
fill) functions perform more than twice 
as slowly as their Microsoft counter- 
parts. Borland claims that “professional 
programmers” use polyfill( ) — which 
draws an automatically-filled polygon — 
rather than floodfill( ), but I don’t agree 
with that logic. Most filling is done in 
regions bounded by objects that may 
or may not be drawn in one piece. 

Drawing conclusions from these tests 
can be risky. In general, Turbo C’s com- 
pile/link cycle is shorter than QuickC’s 
(although, use of QuickC’s incremental 
compile/link would probably reverse 
this trend), but QuickC programs tend 
to run a little faster. Nevertheless, the 
overall performance of the two C com- 
pilers in these benchmarks is too close 
to reveal any clear winner. 

And that’s good news for the ven- 
dors and — even more important — 
for us programmers. No matter which 
product you choose, you can be as- 
sured that it is of excellent quality. 


The world’s leading source 


of information for the 
working C programmer. 


Write or call 


The 


2120 W. 25th St. Ste. B 
Lawrence, KS 66047 
913-841-1631 
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VEdit Plus 


Professor T.A. Elkins 


Product Information 

VEdit Plus, Version 3, CompuView Prod- 
ucts, Inc., 1955 Pauline Blvd., Ann Ar- 
bor, MI 48103; 313-996-1299. Require- 
ments: 156 Kbytes of RAM, hard disk 
not required. Supports: IBM PC, XT, 
AT, PS/2, and compatibles running un- 
der MS-DOS, CP/M-86, FlexOS, Xenix, 
and OS/2. Also DESQview, MS Win- 
dows, PC-MOS/386, and Concurrent 
DOS. Price: $185. 


Edit Plus, Version 3, can deal 

simultaneously with up to 37 

files in multiple windows, and 

can exchange material between 

all of the files and windows. It 
provides multiple views of a single file, 
and a full-fledged text-programing lan- 
guage which includes macros. VEdit 
Plus can record hundreds of undo lev- 
els, provide on-line help for itself and 
a compiler or a collateral program, run 
a compiler with hooks for competent 
error matching or run another child 
process, check structure for items, such 
as the proper nesting of brackets, auto- 
mate graphic character drawings or illus- 
trate the screen character set, and pro- 
vide a middling integer calculator — 
all EXE.PAC in less than 68 Kbytes of 
disk space. 

The program has always set a stan- 
dard for configurability — the entire key- 
board can be internally reassigned and 
a number of keyboard macros can be 
built into VEdit Plus. In Version 3, all 
the functional keyboard reassignments 
are dynamically detected by the help 
system, which reports the current com- 
mand keys. Multiple copies of the pro- 
gram can be configured with individ- 
ual sign-on messages; extremely com- 
plex key redefinitions and macros can 
be automatically loaded by a separate 
initiation file; scores of tab locations 
can be assigned, control characters can 
be shown graphically or as control char- 
acters; and all of the system defaults 
for switches, colors, cursor operation 
(including blink rate and line-ending 
characters) can be individually set for 
each VEdit Plus configuration. 

For several popular word processors, 
VEdit Plus provides a partial emulation 
through preset key sequences that ap- 


Professor T.A. Elkins is a consultant 
who specializes in strategy, policy, 
and matters of wide-ranging academic 
interest. 


proximate many individual word pro- 
cessor commands or key stroke se- 
quences. These emulations do not alter 
VEdit Plus’s operation or its display 
screen, nor do they add to or change 
text manipulations. Accordingly, the emu- 
lations are a convenience feature to 
bring certain word processor opera- 
tions into a familiar context, but even 
this much help will be important to 
some users. 

VEdit Plus offers three user modes 
of operation, starting as a full-screen 
editor or starting in command mode. 
The modes are user selectable, with 
the screen-edit mode accepting abbre- 
viated commands or providing com- 
plete menus. Screen mode also offers 
auto-indenting and other programmer 
aids, the usual block operations sup- 
plemented by helpful column-block op- 
erations, horizontal scrolling for spread- 
sheet and other long line files, and 
blinding speed for 55-Kbyte or smaller 
files. Finally, there is the command macro 
mode in which several self-running 
macros are supplied for activities such 
as mailing list sorts and search and 
replace operations. 

VEdit Plus is available for a variety 
of operating systems; I examined only 
MS-DOS. The DOS system comes with 
a preconfigured .EXE file that is ready 
to run, but VEdit Plus includes an in- 
stall program that will allow easy set- 
up and customization as well as a re- 
configuration program that provides for 
very minute control of the system’s op- 
erations. For my operation, I inhibited 
the sign-on message, relocated the help 
files to another drive, turned on insert 
mode, set block operations to column 
mode, changed the tabs to every five 
spaces, and altered the page buffer size 
to improve performance. All of these 
adjustments were straightforward and 
well documented. 

Adding keyboard macros is also easy, 
and it should be noted that each of 
these changes goes into the VEdit Plus 
.COM file. (One simple macro I added 
provides for the command Alt-Q to 
instantly quit the program.) Far too often 
a system generates a host of tiny collat- 
eral files to set various internal matters, 
disregarding the fact that each of these 
files requires a full disk cluster of stor- 
age space. Because my system is per- 
petually full, I am grateful to Compu- 
View for this nice touch. The need for 
numerous small files was one of my 
main objections to BRIEF, a major com- 
petitor to VEdit Plus. 

The HELP system provides two more 
nice touches. As mentioned, the cur- 
rent keyboard control key assignments 
are sensed by the HELP system so that 
any assignment changes a user may 
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make are automatically reflected when 
the HELP screen displays. This proce- 
dure has decided advantages over the 
templates used by the generality of pro- 
grams because it is always up-to-date, 
never bent, dirty, lost, or in the way! 

The rest of the optional HELP system 
employs three ASCII files with some 
well-documented, intelligent indexing 
commands. Any of these files can be 
edited to add notes that users find nec- 
essary. With a bit more sophistication, 
two or more of the standard or modi- 
fied HELP files can be merged and an 
entirely new help file can be written 
for anything that might be run with 
VEdit Plus and that needs on-line help. 
A fairly remarkable amount of intelli- 
gence can be built into this new HELP 
file, allowing, for example, the auto- 
mated look-up of a host of sub-pro- 
gram command switches. As a top pro- 
grammer’s text editor, VEdit Plus natu- 
rally has internal support for compilers, 
but the addition of on-line compiler 
help is frosting indeed. 

Column mode operation has begun 
to creep into more systems, but for 
those who don’t know this wonderful 
option, I'll illustrate. Consider the fol- 
lowing characters: 


qwertyuiop 
asdfghjkl 
zxcvbnm 


Suppose that the er, df and cvall needed 
to be removed. With Column mode, 
this task is trivial; just Block the rectan- 
gle from the e to the v and delete. 
Column mode is slower to execute than 
normal Block operations, but the con- 
venience is obvious. I’ve used Column 
mode to remove entire segment refer- 
ences from .LST files in seconds — an 
activity that would take hundreds or 
even thousands of manual keystrokes. 

Finally, the VEdit Plus menu opera- 
tion is utterly easy. The command to 
bring up the menus is not shown on 
the screen as it really should be, but I'll 
concede that anyone can remember 
Fl after only minutes of work with 
VEdit Plus. 

Not much is wrong with VEdit Plus, 
but the menu system leads me to one 
set of oddities. On a monochrome moni- 
tor, the menus are pleasantly shown 
in inverse video, but the item selected 
is then shown in normal video. I found 
two-item menus disconcerting because 
I am accustomed to the highlight indi- 
cating selection, and decided to recon- 
figure the program for normal video 
and pull-down menus, a standard al- 
ternative on the configuration list. When 
I did this, nothing happened. 

After a goodly amount of work, and 
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more than a reasonable amount of head 
scratching, I called CompuView. After 
some checking, I was told that when 
the attribute for normal video was set 
at 2 it inhibited all other changes. Make 
this value 7, they told me, and all would 
be well. But all was not well. With this 
value set at 7 the cursor disappeared! 
Finally, we learned that the screen erase 
setting had to be changed as well. At 
last I could reconfigure the pull-down 
menus to normal video, and the prob- 
lem was solved. 

Another minor matter concerns file 
size. VEdit Plus’s .EXE file can be 
EXEPACKed to save 4 Kbytes of disk 
space. But the packed version can no 
longer be changed by the configured 
program. I recommend a well-docu- 
mented archive copy for a VEdit Plus 
file that is packed. 

Finally, the only authentic problem 
with VEdit Plus concerns the edit buff- 
ers it assigns and its internal virtual 
memory system. With CP/M antece- 
dents, VEdit Plus never uses more than 
one memory segment for any single 
activity. This limits the largest buffer 
space to about 55 Kbytes, and other 
buffers may get less if memory is short. 
On a positive note, the system simply 
dumps to disk any part of a file it can’t 
fit into the RAM buffer space. VEdit 
Plus can, accordingly, deal with multi- 
megabyte files. Unfortunately, even 
when memory is available, the virtual 
system still operates under the single 
segment limitation, and the “Wait for 
File” message can quickly become both- 
ersome. Even when running on a RAM 
disk, the delays for virtual activity are 
long enough to provoke resentment. 

Of course, the payoff comes when 
huges files are being edited. Then the 
smaller VEdit Plus printers allow vastly 
superior speed in such routine activi- 
ties as search-and-replace. On 1 Mbyte 
or larger files VEdit Plus flies, while 
other text editors I’ve seen creep if they 
can run at all. 


C Windows 
Toolkit 


Tom Castle 


Product Information 

C Windows Toolkit, Version 2.0; Magna 
Carta Software, PO Box 475594, Gar- 
land, TX 75047, 214-226-6909. FAX 214- 
226-0386. BBS (for downloading demo 
and examples of applications) 214-226- 
8088. Requirements: IBM PC, XT, AT, 
PS2, or compatible. Compilers: Turbo 





C 2.0, Microsoft C 5.0, MS QuickC, and 
Mix Power C. Price: $99.95 (includes 
source code). 


here are quite a few window- 
ing toolboxes available to C pro- 
grammers. One kit in particu- 
lar, C Windows Toolkit from 
Magna Carta, is an exceptional 
value. Aside from a generous library, 
the package includes a font editor, a 
pop-up ruler for window alignment, 
the library source code, and a 359-page 
manual with a tutorial covering video 
architectures and the toolbox functions. 

The guts of C Windows Toolkit, of 
course, is window management. The 
toolbox separates the creation of a win- 
dow from its presentation so that con- 
struction is transparent and the display 
event is instantaneous. Many of the 
window attributes, such as colors, size, 
location, borders, and shadowing, are 
set by individual functions, so you may 
have quite a bit of code after building 
a window with all the works. Also, you 
may wind up with a fairly hefty header 
file because all the information used 
to construct windows and menus is 
kept in a series of data structures. 

By assigning priorities to your win- 
dows, the active (highest priority) win- 
dow will be in the foreground — over- 
lapping the underlying elements. If you 
bring a window to the foreground, the 
priorities of the other windows will be 
adjusted automatically. 

You can settle for writing formatted 
output to windows, but the Toolkit also 
includes facilities for virtual screens. With 
virtual screens, limited in size only by 
free memory, your window can act like 
a viewing port for the underlying text. 

The Toolkit contains some nice sur- 
prises for window handling. You have 
the ability to load and store windows 
on disk, zoom and contract windows 
from various vantage points and speeds, 
and even produce an opening curtain 
presentation. 

The Toolkit provides all the neces- 
sary functions to display and make se- 
lections from pop-up menus. You cre- 
ate scrolling menus by defining a menu 
box of a certain size and then using a 
virtual screen to hold the actual text of 
the menu items. Pretty slick. As an- 
other option, menus can be sized auto- 
matically by not specifying any dimen- 
sions. Functions for the creation of line 
menus or the top bars of pulldown 
menus aren’t included in this version 
of the Toolkit. Those functions, how- 
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ever, can be downloaded from Magna 
Carta’s BBS. 

Menu selection can be accomplished 
by scrolling highlight bars, or option- 
ally by key press of a designated high- 
lighted letter in the menu name. The 
mouse isn’t supported yet. Because sepa- 
rate functions are available for adding 
and removing highlighting from a menu 
item, multiple selections are possible 
from your menus. 

Magna Carta probably felt a need to 
round out the package, so they threw 
in the kitchen sink. Several keyboard 
input routines are available. They also 
threw in all sorts of system and hard- 
ware detection functions: Enhanced key- 
boards, Hercules RAMfont support, 
video adapters, EGA ROM parameters, 
and active ANSLSYS files. There is also 
a lot of support for EGA and VGA op- 
tions like the number of lines per screen, 
palette selection, split screens, smooth 
scrolling and panning, and ROM fonts. 

In addition, they give you TSR clocks, 
stopwatches, and alarm clocks you can 
display. Speaker control and delay tim- 
ers are also squeezed into the library. 

There are two major new additions 
to the library in version 2.0. One set of 
functions is for data entry fields, in- 
cluding parsing and validation. The 
other set is a collection of functions for 
building a text editor. 

Two considerations, in addition to 
the function library and documenta- 
tion, make C Windows Toolkit very 
attractive. First, Magna Carta doesn’t 
require royalties on the run-time pack- 
age or any example code included in 
your application. Second, at no extra 
cost, they include the source code to 
the entire library — of which about 98 
percent is written in C for easy inspec- 
tion and modification. Like it or not, 
windows are with us. With that stark 
fact in mind, you have a choice to 
make; your time or your money. Magna 
Carta’s C Windows Toolkit makes that 
choice a little easier. 


PCX 
Programmer’s 
Toolkit 


Tom Castle 


Product Information 

PCX Programmer’s Toolkit, Version 3.52; 
Genus Microprogramming, 11315 Mead- 
ow Lake, Houston, TX 77077; 713-870- 
0737 or 800-227-0918. Requirements: 
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IBM PC, XT, AT, PS2, or compatible; 
DOS 2.1 or higher; 128K RAM. Sup- 
ported Compilers: Microsoft C, MS 
QuickC, Turbo C, Lattice C, Turbo Pas- 
cal, Microsoft Pascal, Microsoft Basic, 
QuickBasic, Microsoft Fortran, Clipper, 
Microsoft ASM, (soon Turbo ASM). 
Video Adapters: Hercules, CGA, EGA, 
VGA, Paradise Professional VGA, Or- 
chid ProDesigner, Video 7 VRAM, STB 
Extra/EM. Also supports: Expanded mem- 
ory conforming to LIM 4.0. Price: $195. 
Source code available for $300. 


n my opinion, there is an overabun- 

dance of bit-mapped graphics file 

formats for MS-DOS machines. All 

too often for the user, files created 

by one program won’t be usable 
by another program. From a program- 
mer’s vantage, we have to deal with all 
these different beasties. 

Fortunately, a ubiquitous bit-mapped 
image file format has emerged from the 
mire, ZSoft’s PCX format. Almost every 
drawing and desktop publishing pro- 
gram, along with FAX and scanner soft- 
ware, uses or translates PCX-format files. 

A PCX file consists of a 128-byte 
header section followed by a com- 
pressed data section. By using run- 
length encoding (RLE) to compress the 
data, bit-mapped graphics files can be 
squeezed to a small fraction of their 
original size. This is obviously impor- 
tant when you get up into extended 
VGA with resolutions of 800 x 600 pix- 
els in 16 colors (240 Kbytes) or even 
EGA 640 x 350 pixels in 16 colors (112 
Kbytes). 

The first part of the PCX Program- 
mer’s Toolkit is a collection of stand- 
alone programs that include the screen 
capture, display, clip, print, and library 
utilities. Other programs locate pixel 
coordinates, retrieve the PCX header 
information, translate captured text 
screens to a bit-mapped graphics im- 
age, and fix older versions of PCX files 
to conform to the latest specification 
set by ZSoft. 

The second part of the Toolkit is a 
collection of function libraries to in- 
clude in your applications. There are a 
total of 61 functions, and the libraries 
can be used with a wide array of lan- 
guages and compilers (see product box). 

This Toolkit lets you do much more 
than display and save PCX files. A num- 
ber of the library functions deal with 
transferring a file from a storage loca- 
tion to either another storage area or to 
an output device. You also have func- 
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tions to query about file types, headers, 
palettes, and hardware. Two functions 
directly display bit-mapped images on 
the display with logical operations for 
animation or superimposing images. 

The Toolkit includes library manage- 
ment routines that let you manipulate 
entire image libraries and extract single 
images for presentation. By using li- 
braries of images instead of individual 
PCX files, your graphics images are less 
available for scrutiny or hazard from 
the end user. 

The Toolkit lets you use two differ- 
ent types of image buffers when work- 
ing with PCX files. The traditional buffer 
is used for storing compressed PCX 
image files. A second type, a virtual 
buffer, stores the entire uncompressed 
bit image. 

There are two advantages to using 
virtual buffers. First, images larger than 
the screen can be stored in a virtual 
buffer. The image then can be quickly 
panned or scrolled by scanning the 
virtual buffer. The virtual buffer is lim- 
ited in size only by free memory, and 
can be placed in expanded memory if 
available. Second, displaying or print- 
ing an image from a virtual buffer are 
about five to ten times faster than the 
same operations from a conventional 
buffer containing a compressed PCX 
image file. The Toolkit, Version 3.52, 
supports printing to a Hewlett-Packard 
LaserJet II. This is true both for the 
stand-alone print utility and for the print 
functions in the programmer’s library. 
Support for Epson/IBM dot-matrix print- 
ers is scheduled for the next release, 
but Genus has voiced reluctance about 
becoming too bogged down with printer 
driver support. This could be a weak 
point in an otherwise excellent pack- 
age. You'll probably need to buy an 
additional graphics print driver toolkit. 

The software comes with an indexed 
manual contained in a sturdy three- 
ring binder. In the reference section of 
the manual, example code for each 
function is given in each of the six 
languages supported by the toolkit. The 
disks also include example code and 
a few test images. Genus doesn’t re- 
quire licensing on usage of the library 
functions, but the stand-alone programs 
are for your use only and can’t be 
distributed. Genus seems bent on sup- 
porting their product, and improvements 
have steadily rolled off the assembly 
line over time. If you are involved 
in graphics programming at all, PCX 
Programmer’s Toolkit is well worth the 
investment. 


DDJ 
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OOPS. Using sophisticated Object-Oriented Programming, Matrix Layout 
gives you the power to build complete applications faster than you thought 


possible. And that’s just the beginning. 
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CASE. Layout’ Computer Aided Software Engineering functions let you 
design programs using an intuitive flowchart model. Then, Layout can 
automatically turn your flowchart into source code or even an .EXE file. 





Please choose the type of program you want 
Layout to produce: 

BY Ready-to-Run Program 

CI MicroSoft C, 
(1 Turbo Pascal 
= acai QuickBasic 


Lattice C, Turbo C 





ee 


Presenting Matrix Layout, the first full 
software development system for the PC to 
promise you all the above. And deliver. 

Sit down to Layout’s intuitive user inter- 
face and in minutes you'll be using advanced 
OOPS (Object-Oriented Programming 
System) and CASE technology to build your 
program. Simply draw a flowchart indicating 
the windows, buttons, menus, text, and 
graphics you want. 


A Cut Above Other Tools. 
Layout also provides flowchart elements 
for Hypertext data base capabilities, math 
functions, variable management, conditional 
branching and looping. And, its open archi- 
tecture allows you to build your own Black 
Box elements — to create exactly the 


program you want. 
When your flowchart is ready, Layout uses 





Hypertext. Layout puts all the features of Hypercard® on your PC and in your 
programs. Use Layout’ graphical user interface to create documents with action 
links to related documents in any file. Or to create hyperlink applications. 


Great Pro 
Should Contain 





artificial intelligence technology to auto- 
matically turn it into code — Turbo Pascal, 
Turbo C, Microsoft C, QuickBasic or Lattice 
C. Or create a ready-to-run .EXE file right 
from within Layout. 

It’s so efficient, your programs will run 
incredibly fast, even on a standard 256K PC. 
Plus, they’ll include Layout’s automatic 
mouse support and device independence. 


All The Above And More. 
e Matrix Helpmaker helps you create context- 
sensitive help and complete on-line docu- 
mentation for your programs. 
e Matrix Paint offers a full set of graphics 


LAYOUT 








Plus, your favorite programmin 


can cut your coding time up to 70 percent, and still produce ready-to-run 
programs in your choice of languages. 









language(s). Using Layout’ tools, you 


‘Tool 





The Above. 


tools, scanner support, and clip-art files to 
make your programs look professional. 

e Finally, Matrix Desktop gives you a simple, 
visual way to organize files and disks. 


For A Lot Below. 
Layout delivers all the above for just $149.95 
—a lot below what ye expect. Especially 
when you throw in free customer support, 
no copy protection, and a 30-day, money- 
back guarantee. 

Video Tape Offer. Still not convinced? 
Call for a copy of our Matrix Layout VHS 
demonstration video at 1-800-533-5644 (just 
$9.95 for shipping and handling, credited 
against your purchase). In Massachussetts, 
call (617) 567-0037. 

Any way you look at it, Matrix Layout is 
the ultimate PC programmer’s tool. And 
that’s the bottom line. 


Matrix Software Technology Corporation * One Massachussetts Technology Center * Harborside Drive * Boston, MA 02128 ¢ (617) 567-0037 


Matrix Software/UK ° Plymouth, England ¢ 0752-796-363 * Matrix Software/Belgium * Geldenaaksebaan 476 ¢ 3030 Leuven ¢ 016202064 
The following are registered and unregistered trademarks of the companies listed: Matrix Layout, Matrix Paint, Matrix Helpmaker, Matrix Desktop, 
Matrix Software Technology Corporation; Macintosh, Hypercard, Apple Computer, Inc. 
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SMALLTALK 


Listing One (Text begins on page 16.) 


Object subclass: #Dos 
instanceVariableNames: 
‘registers templ temp2 ’ 
classVariableNames: ’’ 
poolDictionaries: '’ ! 


'Dos methods ! 


doDCSPrimitive: opcode 
"PRIVATE - Call the DCS Primitives using an interrupt" 
<primitive: 96> 
getEnvironmentValue: anEnvironmentString 
"Private- This is a method for getting the 
value of an environment variable(string). Answers 
the value if anEnvironmentString is valid or nil 
if not found. 
Here the instance variables are 
used as follows: 
templ = the name of the environment variable wanted 
temp2 the value of the environment, if the 
environment variable exists. 
templ := anEnvironmentString asAsciiZ. 
temp2 := String new: 128. 
(self doDcsPrimitive: -11) 
ifTrue:( “temp2 trimBlanks ] 
ifFalse:[ *’’].! 


End Listing One 


Listing Two 
POR IRI OI I IO II I OO II I 


;ACCESS.USR - PRIMITIVE ENTRY MACRO - SMALLTALK/V 

;Copyright (C) 1986 - Digitalk, Inc. - Reprinted by Permission 

POR RK RKO OI OOOO OOO OO OI kk tok 
It is essential that this macro appear at the beginning of 

the primitive in that it saves certain registers. Some of 

the registers may or may not have to be restored depending on 

whether or not the primitive is successful, and some 

must be restored before exiting the primitive. 


Me Se Me te te 


enterPrimitive MACRO 


; At the end of this macro the stack will appear as below: 
; SP--> BP--> - saved BP - must be restored on exit 


; +2 - saved BX - must be restored in case of failure 
: +4 - saved DI - must be restored in case of failure 
: +6 - saved SI - must be restored on exit 

; +8 - saved DS - must be restored on exit 

: +10 - IP 

; +12 - CS 

° +14 - FLAGS 

; if there are any argument passed to the primitive they are found here 
: +16 - last argument to primitive 

: +18 - second last argument to primitive 

; - etc... 

; high address - 


; Note: some of the following macros use BP assuming the value has not 
; changed from what this macro sets it to. If you use BP be sure 
; to restore it before using the macros that make use of BP. 


PUSH DS ;set up stack as shown above 
PUSH SI 

PUSH DI 

PUSH BX 

PUSH BP 

MOV BP, SP ;set BP to Top of Stack 
ENDM 


This macro must be used when the primitive must be exited and the 
primitive was SUCCESSFUL. The resulting pointer or small integer 
must be in BX before invoking this macro. The macro will: 

- mark the object (pointer) in BX so that the garbage collector 

will not collect it as garbage 

- certain registers are restored 

- the return address and flags are popped into temporary registers 

- the arguments are flushed and replaced with the result in BX 

- the return address and flags are put back on the stack 

- AX is set to zero (AH=0 indicates that the primitive was successful) 

- and the IRET instruction is executed 


tt it at et el eT eT et a TT 


exitWithSuccess MACRO numOfArgs 


; On entry BX must contains the result to be pushed 
; on the stack. 


markPtr BX,ES ;mark result object in BX 
POP BP ;restore BP 

ADD SP,4 

POP SI ;restore DS:SI pair 

POP DS 

POP CX ;pop the offset,segment and 
POP DX ;flags into temp registers 
POP AX 


IF numOfArgs 
ADD SP,numOfArgs * 2 + 2 ;flush all args of primitive 


ENDIF 
PUSH BX ;push result on stack 
PUSH AX ;push flags, segment and 
PUSH DX ;offset back onto stack 
PUSH CX 
XOR AX, AX 7;AH to 0 (prim was success- 
ful) 
IRET ;interrupt return 
ENDM 
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This macro must be used when the primitive must be exited and the 


primitive FAILED. 


The macro will: 


- set AH to 1 indicating failure condition and AL to the number 
of arguments passed to the primitive 


H 

; 

; - restore all saved registers 
, 

‘ 

, 


- and the IRET instruction is executed 


exitWithFailure 


MACRO numOfArgs 


POP BP ; ;restore all saved registers 
POP BX 

POP DI 

POP SI 

POP DS 

MOV AX,256 + numOfArgs 7;AH to 1 (prim failed) 

IRET ;interrupt return 

ENDM 


; This macro will return the address of the object with object pointer 
The address will be returned in the register pair 
; segmentReg:offsetReg. segmentReg must be a segment register. 


; in objectReg. 


getObjectAddress 


MACRO objectReg, offsetReg, segmentReg 


; All the arguments must be different registers. 
; BP must not have changed from the value it was 
; set to in the enterPrimitive macro. 


MOV segmentReg, [BP+12] 

ROR objectReg, 1 

MOV offsetReg, segmentReg: [objectReg] 
ROL objectReg, 1 

MOV segmentReg, SS: [objectReg] 

AND offsetReg,MASK offsetMask 

ENDM 


; This macro will mark the object whose object pointer is in objectReg 

; so the garbage collector will not collect as garbage. It is to be used 
; whenever an object pointer is stored. If the object in objectReg is 

; a small integer, no marking occurs. 


markPtr 


MACRO objectReg, segmentReg 
LOCAL done 


; BP must not have changed from the value it was 
; set to in the enterPrimitive macro. 


done: 


ROR objectReg, 1 


JNC done 
MOV segmentReg, [BP+12] 
OR BYTE PTR segmentReg: [objectReg],MASK grayMask 


ROL objectReg, 1 


ENDM 


; This macro will get the class (pointer) of the object whose pointer 
; is in objectReg. 
; the class pointer is set to ClassSmallint. 


getClass 


;all the arguments 


done: 


“ee Se Ne Se Ne 


(actual size 


isSizeEven 


If the object in objectReg is a small integer then 


MACRO objectReg, classReg, segmentReg 
LOCAL done 
must be different registers 


MOV classReg, ClassSmallint 

TEST objectReg,1 

Jz done 

MOV classReg,SS 

SHR classReg,1 

MOV segmentReg, classReg 

MOV classReg, segmentReg: [objectReg] 


ENDM 


This macro will set the zero condition flag as to whether the object size 
is an even or odd number of bytes. This test should be performed on 
byte-addressable objects. A zero condition means that the object is an 
even number of bytes (actual size = object header - 2). A non-zero 
condition means that the object is an odd number of bytes 


object header - 3). 


MACRO objectReg, workReg, segment Reg 


; BP must not have changed from the value it was 
; set to in the enterPrimitive macro. 


MOV workReg, objectReg 

ROR objectReg, 1 

MOV segmentReg, [BP+12] 

TEST BYTE PTR segmentReg: [objectReg],MASK oddMask 
MOV objectReg, workReg 

ENDM 


POR II RRR KK KKK KKK KK KKK I KKK IOI IIIT TO TIKI KKK KIKI KIKI KR KK 


; PRIMITIVE ENTRY POINT SAMPLE CODE FRAGMENTS 


POR III II RR KKK KKK III IRR III OI TOI RK 


jumpTable 


DW 


getCountryEnt 
getEnvironEnt 
exeApplicEnt 
exeProgramEnt 
setNoXlatEnt 
setXlatEnt 
atEndEnt 
bufFlushEnt 
bufWriteEnt 
bufReadEnt 
initOutputEnt 
initInputEnt 
interruptEnt 
inWordEnt 
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DW inByteEnt 
DW outWordEnt 
DW outByteEnt 
DW peekEnt 
DW pokeEnt 
DW blockMoveEnt 
* 
* 
* 

dcsPrims proc far 


; This 


is code that will be executed everytime this primitive 


; is invoked from "Smalltalk/Vv" 


exec0l: 


enterPrimitive ;enter primitive macro 

mov bx, [bp+16] ;get function code from first instance 
test bl,l ; variable of receiving object. if it 
jnz failure ; isn’t a number then something’s very 


; rotten in the state of Denmark. 


cmp bx, 16 ;the function code is already shifted 
jge failure ; left by one (courtesy of smalltalk’s 
cmp bx, -26 ; way of identifying integers), so do 
jle failure ; some range checks and abort if the 


; value is out of bounds. 


jmp cs:(bxt+tjumpTable] ;otherwise, jump to the code associated 
; with this function number. 


mov cs:stackOfs,sp ;save the current Smalltalk stack, and 
mov cs:stackSeg,ss ; replace it with a local stack in low 
mov ax,Cs ; (protected memory). 

Cli 

mov ss,ax 

lea sp,cs:_ stack 

sti 

MOV ah, 2fh ;save the DOS DTA pointer, just in case 
int 21h ; it gets clobbered by the application. 
mov cs:dtaOfs,bx 

mov cs:dtaSeg,es 

call exec ;load and execute the program 

mMOv bx, truePtr ; the errorievel 


jnc exec0l ; code is returned in "retCode". If the 
mov bx, falsePtr ; carry was set, then an error occurred 


mov retVal,bx ; and we answer "false", otherwise we 
; answer "true". 
mov ah, lah ;restore the DOS DTA pointer. 


With CURSES and FORMATION 
The Key to UNIX, MS-DOS and OS/2 
Window Portability 


CURSES- Unctuttered portability, power and control. 

You have UNIX, you have CURSES. Now all you need is 

our CURSES package for MS-DOS and OS/2. Our CURSES is 

fully UNIX System 5.3, XENIX and 4.X BSD compatible. Our manual is written 
in plain English and is full of examples. And with our CURSES TUTOR, you'll 
be coding in minutes. Besides that, you'll still get the CURSES Form Manager, 
FAST, absolutely FREE. 

MS-DOS-OS/2 Source/Binary Bundled - § 3 49 

MS-DOS-OS/2 Binary Bundled - $159 


The Experts Agree. Allen Holub, Dr. Dobb's Journal: ‘I'd recommend it.” 
Mark Davidson, Computer Language: “a fine PC version of System 5 
Curses...attractive package for developers.” Bill Hancock, DEC Professional: 
“To get the desired terminal display compatibility, I bought CURSES from 
Aspen Scientific.” 


lds dx,cs:dtaPtr 


int 21h 
cli ;and, restore the Smalltalk stack with 
mov ss,cs:stackseg ; the saved pointer. 
Mov sp,cs:stackofs 
sti 
mov ax, retCode convert the errorlevel to a Smalltalk 
shl ax, 1 ; integer format, and return it in the 
les bx, receiverPtr ; fifth instance variable of receiver 
mov es: [pxt+12],ax ; object. 
mov bx, retVal sthe Smalltalk convention is to put the 
jmp successl ; answer for this obj in bx, and call 

; the "leavePrimitive" macro. a jump 

; to success will do this quite nicely 

; thank yew! 

End Listing Two 
Listing Three 


;queue an interpreter interrupt (in protected mode) 
; AL=interrupt number to queue 
interruptVM MACRO 
CALL DWORD PTR SS: [queueVMinterrupt ] 
ENDM 
;queue an interpreter interrupt (in real mode) 
ISVinterruptVM MACRO 
MOV ES,CS: [realParmSeg] 
CALL DWORD PTR ES: (ISVqueueVMinterrupt ] 
ENDM 
The code to call the socket primitive in Smalltalk is: 
socketPrimitiveOpcode: opcode withArguments: argumentArray 
"PRIVATE: Call the socket primitive." 
&lt;primitive: socketPrimitiveégt; 
“self error: ’Network Primitive failed - is sockprim.bin loaded?’ 


End Listing Three 


(continued on page 90) 


FORMATION. Fresh new control in portability. Supports 
sophisticated interfaces ordinarily found only under graphics 
environments. Now dialog boxes, drop down menus and 
exploding viewports will bring needed freshness to your 
applications. Best of all, FORMATION does what you need 
without getting in your way. 

MS-DOS-OS/2-UNIX Source/Binary Bundled - $399 
MS-DOS-OS/2 Binary Bundled - $159 


We support popular displays and C Compilers. Take control. Get in touch 
with us! 





ASPEN SCIENTIFIC 


P.O. BOX 72 WHEAT RIDGE, COLORADO 80034-0072 
303-423-8088 


Overseas Distributors: W. Germany: Kickstein Software 0821-81 46 66 * RADIX BV 020 14 24 63 
Trademarks: MS-DOS, OS/2, XENIX: Microsoft; UNIX: AT&T 
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Listing Four (Listings continued, text begins on page 16.) 


KK KKK KKK KKK KK KK KKK KK KK KK KKK KK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK 
’ 


;* FIXDPTRS.USR 


KKK KKK KKK KKK KKK KKK KKK KKK KEK KKK KKK KK KKK KKK KEK KEKE KKK KKK KKK KKK KK KKK KKK KKKKKKKKKKKK 
, 


; fixed segments 


plusSmallSeg 
nilSegment 
minusSmallSeg 
booleanSeg 
characterSeg 
fixedPtrSeg 


out wt wea 


;fixed offsets 


niloOffset 
trueOffset 
falseOffset 
firstCharOffset 


106H 
Offf3H 
Offf1H 
2 


7; segment 
; segment 
;segment 
; segment 
;segment 
;segment 


;offset 
;offset 
;offset 
;offset 


of small positive integers 
of nil object 

of small negative integers 
for true and false 

for all character objects 

for all fixed ptr objects 


of nil object 
of true object 
of false object 
of ascii char 0 


;all of the following objects are in the segment fixedPtrSeg 
;what is given below are their offsets 


classArrayOffset 
Smalltalk 
ErrorCode 


PRR RR KK RR KK KK RK IK ROR KO IO IO IOI OOO IIR I IK 


; OBJECTS.USR 


PRR RRR RRR RRR KR RRR RK RK RK RK RK IK IK IIR IO TORII KOI 


;Object header structure 


objectHeader STRUC 
ClassPtrHash 
ObjectPtrHash 
GCreserved 
NumberFixed 


ObjectSize DUP (?) 


jarray o 


f classes in system 


equ nilOffset+size objectHeader 
equ classArrayOffset + size assoc 
equ Smalltalk + size assoc 


7;see below for values for fixed classes 
;usually contains object hash 


;number of named instance variables 
;stored as low,middle,high order 


; Size is stored as # of. instance variables 


ObjectFlags 
objectHeader 


;defined below 


;object flags (contained in objectFlag byte of objectHeader) 


PointerBit EQU 10H 
IndexedBit EQU 8 
;other bits in byte are reserved 


;Array Object 
arrayObj STRUC 


DB size objectHeader DUP (?) 


arrayObj ENDS 


;Object contains pointers 
;Object has indexed instance variables 


MICROSOFT, TURBO AND MIX POWER C PROGRAMMERS. ..C WINDOWS 
TOOLKIT" PUTS YOU IN CHARGE OF VIDEO and DATA-ENTRY 


NEW FEATURES 


¢ Comprehensive data-entry and verification procedures with scanf{ ) type syntax. 
+ Predefined data-entry functions for dates, SSNs, telephone numbers, currency amounts with 


commas, time, scientific notation, etc. 


* Turn any window into an editor with your choice of keyboard mapping (Wordstar ™ by default). 
¢ Virtual windows up to available memory. 


Save windows to disk. 
¢ Nested windows. 


NEW 
VERSION 


* Create and edit VGA/MCGA/EGA/Hercules fonts of any size. 20 


WINDOWING FUNCTIONS 


* Create pop-up windows 

* Create pull-down menus 

* Create spreadsheet menus 

* Create context-sensitive help screens 

* Store windows in RAM or on disk 

* Modify windows out of view 

* Use 8 different types of exploding windows 
¢ Scroll and move windows 


SYSTEM CONTROL 


* Device-independent output 

* Supports VGA/MCGA/EGA/Hercules/ CGA/MDA 

* Detect the types of video adapter installed 

« Switch between adapters 

* Detect ANSI.SYS 

* Detect the enhanced keyboard 

* Disable the video signal 

* Delay program execution to microsecond resolution 


Full source code included — No run-time royalties. 


PO, Box 475594 
Garland, TX 75047-5594 
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VGA/EGA SUPPORT 


* Use all 64 VGA/EGA colors 

* Use VGA 29/43/50 line modes 

* Use EGA 43-line mode 

* Use 2 fonts simultaneously 

* Design and edit custom fonts with FONTEDIT “our font 
editor (included) 

¢ Smooth scroll and pan the screen 


FAST SCREEN 1/0 


¢ Write formatted output (like printf( )) 
* Get snow-free output on the CGA 
¢ Use direct screen writes or the BIOS 


HERCULES SUPPORT 


* Create and edit your own Ramfonts™ 

* Detect the presence of a Hercules Card 

¢ Detect Ramfont™ support 

* Load and store Ramfonts™ to RAM or disk 
* Switch between modes 


Includes 230 page manual — 30-day Money-Back Guarantee 


Requires: IBM PC, XT,AT, PS/2 or compatible. 
Supports Microsoft C/Quick C, Borland Turbo C, Mix Power C 


CALL (214) 226-6909 


Only s9g9s 
(Texas Residents add 
8% sales tax.) 
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;Character Object 
charOb} STRUC 

DB size objectHeader DUP (?) 
asciiValue DD ? ;ascii value 
charObj ENDS 
;Note that this is 16 bytes in size 


; Association Object 
assoc STRUC 
DB size objectHeader DUP (?) 
assocKey DD ? 
assocValue DD ? 
assoc ENDS 


; Point object 
pointObj STRUC 
DB size objectHeader DUP (?) 
pointX DD ? 
pointy DD ? 
pointObj ENDS 


; Hash values for classes 

SmallIntegerHash equ 0 

emptySlotHash equ SmallIntegerHash + 8 
StringHash equ emptySlotHash + 8 
MessageHash equ StringHash + 8 
SymbolClassHash equ MessageHash + 8 
LargePosIntHash equ SymbolClassHash 
HomeContextHash equ LargePosIntHash 
LargeNegIntHash equ HomeContextHash 
ContextHash equ LargeNegIntHash 
PointHash equ ContextHash + 8 
ArrayHash equ PointHash + 8 
LinkHash equ ArrayHash + 8 


8 
8 
8 
8 


; This is a useful struc for accessing arguments in primitives 
; For example, to load the receiver into DS:SI 
; LDS SI, [BP+receiverPtr] 


;stack after enterPrimitive macro 
primitiveFrame STRUC 

savedBP 

returnAddr 

receiverPtr 

arglPtr 

arg2Ptr 

arg3Ptr DD ? 
primitiveFrame ENDS 


;This struc defines the beginning of a user primitive load module 
primLoadModule STRUC 
installEntry 
reservedl 


DW ? 
DW 0 
DW 0 ; 4 

DW ? ; 6 after loading, will contain real mode addr 


; 0 entry point for installation routine 


realCodeSeg 


QNX USERS! 


OPERATING & DEVELOPMENT SYSTEMS AND UPGRADES 
SPREADSHEETS, WORD PROCESSORS, GRAPHICS 
MENU SYSTEMS AND FILE MANAGEMENT UTILITIES 
DATA BASE MANAGEMENT SOFTWARE 
FORTRAN, C AND BASIC COMPILERS 
PROCESS CONTROL 
TERMINALS, TERMINAL SYSTEMS AND SERIAL BOARDS 
FAX BOARDS & SCANNERS (NETWORK & MULTIUSER) 
NETWORKING HARDWARE 
BERNOULLIS AND DRIVERS 


Let us help you configure or expand your net- 
work and terminal systems. We carry a wide 
assortment of QNX compatible hardware and 
software products. 


T&T COMPUTER PRODUCTS 
QNX SPECIALISTS 


P.O. BOX 14010 
918/663-1879 


TULSA, OKLAHOMA 74159 
MC/VISA FAX 918/663-4054 
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; 8 offset of table of primitive subroutines 


primTableOffset DW ? 
realParmSeg DW ? ; A after loading, will contain real mode addr 
: of virtual machine communication area. 
reserved2 DW 0 gC 
DW 0 ; E 


primLoadModule ENDS 


; 
; 
; 
; 


aT i eT eT) 


KKK KKK KK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KK KKK KK KKK KKK KEKKKKK KKK KK 


;* ACCESS.USR -PRIMITIVE ENTRY MACRO - SMALLTALK/V286 
;* Copyright (C) 1988 - Digitalk, Inc. - Reprinted by Permission 


KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KK KKK KKK KKK KK KKK KKK KKK KKK KK KKKKK KK 


It is essential that this macro appear at the beginning of 
the primitive in that it saves certain registers. Some of 
the registers may or may not have to be restored depending on 
whether or not the primitive is successful, and some 

must be restored before exiting the primitive. 


enterPrimitive MACRO 


. 
, 


ee ee ee Pe en Pe Pen a 


. 
’ 
. 
’ 


. 
’ 


At the end of this macro the stack will appear as below: 


SP--> BP--> - saved BP 
+2 - return addr (offset) 
+4 - return addr (segment) 


If there are any argument passed to the primitive they are found here. 
All arguments and the receiver are passed as 32 bit pointers 


+6 - receiver of primitive (offset) 
+8 - receiver of primitive (segment) 
+10 - first argument to primitive (offset) 
+12 - first argument to primitive (segment) 


high address - 


some of the following macros use BP assuming the value has not 
changed from what this macro sets it to. If you use BP be sure 
to restore it before using the macros that make use of BP. 


Note: 


PUSH BP ;save old BP 
MOV BP, SP ;set BP to Top of Stack 
ENDM 


This macro must be used when the primitive must be exited and the 
primitive was SUCCESSFUL. The resulting pointer or small integer 
must be in DX,AX (DX=segment, AX=offset) before invoking this macro. 


exitWithSuccess MACRO 


. 
’ 


. 
‘ 


On entry DX,AX must contains the result to be pushed 
on the stack. 


MOV SP, BP 

POP BP ;restore BP 
RETF ;far return 
ENDM 


=| _‘*‘The WindowBOSS == 


Pop-up windows, pull down menus, status lines, and in context on-line help 
functions can be easily implemented. Your applications can drag windows 
around the screen and automatically sense the type of video card installed. All 
of this without snow, flicker, or delay! 


The BOSS’s assistant, The Data Clerk, is always on call to handle the tasks 
associated with data entry. The Data Clerk makes it a snap to enter text, inte- 
gers, floats, longs, dates, phone numbers, and times. It is equally easy to create 
complex forms with individual field help and error messages. Custom fields 
and masks are also a snap! Naturally, we concentrated on the programmer in- 
terface, keeping it clean, uncluttered, powerful, fast, and easy to remember. 


Tim Parker’s column in the February 87 issue of Computer Language stated 
“the ease of use will cause some programmers to go overboard with windows”, 
and “if you are a die-hard C programmer looking for a useful, license-free 
product, this is it”. 


Hardin Brothers’ column in the June 88 issue of PC Resource stated ‘“‘Within 
its domain, The Window BOSS is as useful and as powerful as any C library 
I’ve used”’. 


COMPILERS SUPPORTED 


Borland, Microsoft (MSC & Quick C) 
Lattice, Computer Innovations, Datalight, 
Mix Power C, Manx Aztec C, Watcom C 


The Window BOSS supports PC/MSDOS for 
IBM PC/XT/AT, IBM PS/2, and Compatibles 


The Window BOSS is one of the most powerful and cost-effective products 
available to enhance and accelerate the development of system and applica- 
tions programs in the “C” language. The BOSS will let you create programs 
that have the same look and feel as the top selling database, spreadsheet, and 
desktop accessory programs! 


The BOSS is written in meticulously commented and structured “C” with a 
minimal amount of assembly language. Best of all, you need to purchase the 
BOSS only once since libraries for all the supported compilers are included at 
no additional cost! All this and SOURCE CODE too! 


Star Guidance Consulting, Inc. 
273 Windy Drive, Waterbury, CT 06705 
(203)574-2449 
The Window BOSS & Data Clerk 
Shareware Disk 


—$55.00 + $3.50 Shipping 
— $20.00 + $3.50 Shipping 


Checks must be made payable in US Dollars 
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; This macro must be used when the primitive must be exited and the 
; primitive FAILED. 


exitWithFailure MACRO 


XOR AX, AX ;AX=DX=0, for failure return 
XOR DX, DX 

MOV SP,BP 

POP BP ;restore BP 

RETF ;far return 

ENDM 


;Object testing macros 


;in the following testing macros, 


;the result is returned in the zero flag as follows: z=no, nz=yes 
;Object has pointers?? jz=no, jnz=yes 
isPointerObject MACRO objSeg, objOff 

TEST objSeg: [objOfft+objectFlags],PointerBit 


ENDM 


;Object is indexable?? jz=no, jnz=yes 

isIndexedObject MACRO objSeg, objOff 
TEST objSeg: [objOff+objectFlags] , IndexedBit 
ENDM 


;Object is contained in single segment?? jz=no, jnz=yes 
isSmallObject MACRO objSeg, objOff 

OR obj0ff,objOff 

ENDM 
;**** size extraction macros **** 


;Object size is expressable in elements or bytes. 

; elements is the number of smalltalk objects it contains 

; bytes is the number of bytes it occupies (including header) 
note that objects always occupy an even number of bytes 


:For example: 
#( 12 3) is an array with three elements and it occupies 24 bytes 
is a string with 5 elements and it occupies 18 bytes 


. 
, 


; ‘hello’ 


;extract the size in elements 

getElementSize MACRO objSeg, objOff, resultLowWord, resultHighByte 
MOV resultHighByte,byte ptr objSeg: [objOfftobjectSizet+2] 
MOV resultLowWord,word ptr objSeg: [objOfftobjectSize] 
ENDM 

;compute the size in bytes 

getBigByteSize MACRO objSeg, objOff, resultLowWord, resultHighByte 
LOCAL addHeader 
getElementSize objSeg, objOff, resultLowWord, resultHighByte 
isPointerObject objSeg, objOff 
JZ addHeader 
ADD resultLowWord, resultLowWord 


(continued on page 98) 


Nae C++? 


(A Videotape Presentation) 


Considering C++ for your next project? Confused after 
trying to read a (++ book? Or just curious about all 


the hOOPla? This VHS-format videotape, featuring 
author/speaker William M. Miller, gives a comprehensive 
and understandable overview of the major features of 
C++ and Object-Oriented Programming. 


e@ On-line access to lecturer (via BIX) 
@ Moneyback guarantee! 


Send $19.95 (+#4.00 S&H) for 1-week rental or $59.95 
for purchase (postpaid) to: 


Software Development Technologies, 
Dept. 501 

P. O. Box 366 

Sudbury, MA 01776 


Or call (508) 443-5779, 8:00 a.m. 
time, for Visa/Mastercard orders. 


to 6:00 p.m. Eastern 


Inquire about our full C++ training course, available for on-site or 


videotape delivery. 
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;***ee*k This macro must be called after EVERY pointer store ******* 
;**eee* Failure to do so will invalidate the garbage collector **** 
;*keeee leading to catastrophic and unpredicable results *********x 


Listing Four (Listing continued, text begins on page 16.) 


resultHighByte, resultHighByte 

resultLowWord, result LowWord 

resultHighByte, resultHighByte ;This macro detects old space to new space pointer stores, 
resultLowWord,size objectHeadert+1l ;and updates the GC data base accordingly. 

resultHighByte, 0 ; 

resultLowWord, 0FFFEH ;ymacro arguments are as follows: 

; segReg = seg reg of object stored into 
offReg offset reg of object stored into 
valueSeg segment of pointer that was stored 
workReg a work register 


addHeader: 


;user calls to interpreter routines 


;routine vector offsets 

ISVqueueVMinterrupt equ OFFFOH - 4 
queueVMInterrupt equ ISVqueueVMinterrupt-4 
oldToNewStore equ queueVMinterrupt-4 


;example of use: store ptr BX:AX into object ES:DI at slot ‘'contents’ 
: MOV word ptr es: [di+contents],AX ;store offset 
;used in oldToNewUpdate macro ; MOV word ptr es:[dit+contents+2],BX ;store segment 
i OldToNewUpdate es,di,bx,ax 
OldToNewUpdate macro segReg, offReg, valueSeg, workReg 
LOCAL done 


;queue an interpreter interrupt (in protected mode) 
; AL=interrupt number to queue 
interruptVM MACRO MOV workReg, segReg 

CALL DWORD PTR SS: [queueVMinterrupt ] CMP workReg, 92EH 

ENDM JAE done 
CMP valueSeg, 92EH 
JB done 
PUSH segReg 
MOV ES,CS: [realParmSeg] PUSH offReg 
CALL DWORD PTR ES: |ISVqueueVMinterrupt] CALL DWORD PTR SS: [oldToNewStore] 
ENDM POP offReg 

POP segReg 


;queue an interpreter interrupt (in real mode) 
ISVinterruptVM MACRO 





;miscellaneous but usefull macros 


done: 
ENDM 


;is object a small positive integer -- je=yes, jne=no 


; (only segment needs to be tested) 
isSmallPosInt MACRO segmentExpression 
CMP segmentExpression, plusSmallSeg 
ENDM 


;is object a small negative integer -- je=yes, jne=no 


; (only segment needs to be tested) 
isSmallNegInt MACRO segmentExpression 
CMP segmentExpression,minusSmallSeg 
ENDM 


;is object a character -- je=yes, jne=no 
; (only segment needs to be tested) 
isCharacter MACRO segmentExpression 
CMP segmentExpression, characterSeg 
ENDM 


ris object static, i.e. constant, no stores allowed -- ja=no, jbe=yes 


; (only segment needs to be tested) 
isStaticObject MACRO segmentExpression 
CMP segmentExpression, characterSeg 
ENDM 


PORK RRR RK IK KK RK KI KK IK IO RI III Ok 


+ SOCKPRIM.ASM 


Te Me Me Ne Me Me Me Me Me Ne 


~ 


TITLE Socket Primitives 


.286P 


The V286 Socket Primitives V2.0 

In this implementation, recv() and accept() only operate in 

a nonblocking fashion, returning errno EWOULDBLOCK if the 
operation can not be completed immediately. All other calls 
block until completion or error. 

Opcode 0 is implemented in this version as Socket closeAll. 
Opcode 18 is implemented in this version as Socket version. 
An additional non-standard errno EDRIVER (254) is returned if 


installation fails or the installed driver behaves strangely. 
KK KKK KKK KKK KKK KKK KKK KR KKK KR KKK KKK KKK KKK KKK KKK KKK KK KK KKK KKK KK KK KK KKK KK 


INCLUDE fixdptrs.usr 
INCLUDE objects.usr 


INCLUDE access.usr 


INCLUDE sockprim.inc 


(continued on page 100) 





HARVARD SOFTWORKS 
NUMBER ONE IN FORTH INNOVATION 


(513) 748-0390 


Have you ever wanted a 
language that: 


¢ Executed faster than optimized C? 

«Compiled 20000 lines per minute? 

¢ Was totally interactive, even while 
compiling? 

*Helped you program at any level of 
of abstraction from machine code thru 
application specific language with 
equal ease and efficiency? 

e Allowed easy interactive modification 
of any routine at any time? 

¢ Gave source code for 2000 functions? 

¢Could borrow any data structure, 
any control structure, any interface 
scheme from any other language? 

¢Could implement the borrowed 
feature just as efficiently, and often 
more efficiently, than its source? 

¢ Had an architecture that could 
support very small programs and full 
megabyte ones with a single version? 

¢ Lacked mystical syntax requirements? 

¢Could use subroutine libraries written 
for other languages? More efficiently? 

¢Combined the raw power of extensible 
languages with the convenience of 
carefully implemented functions? 

¢ Enabled novice programmers to run 
rings around Computer Science BS 
graduates? 
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Forth has to often been the language 
that tempted programmers with "great 
expectations", then frustrated them 
beyond all endurance with the need to 
reinvent the simplest tools expected in 
any commercial language. 


HS/FORTH is different! 


We won't short change you with "great 
possibilities". We will provide’ the 
implemented functionality to let you 
complete your application quickly. 


You can’t judge the power of Forth by 
public domain products or ones from 
vendors more interested in consulting. 
The latter earn more by not providing 
needed tools! Public domain versions 
are cheap - if your time is worthless. 
Useful in learning the basic nature of 
Forth, they fail at showing its true 
potential. Not to mention being s-]-o-w. 


You can’t add extensibility to closed 
compilers. You can add features from 
any other language to HS/FORTH. We 
even added full OOPs capability. 


HS/FORTH has more features than we 
could possibly describe here. Please ask 
for our brochure. 
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P.O. Box 69, Springboro, OH 45066 


HS/FORTH runs under MSDOS or 
PCDOS. Each higher level includes all 
features of the lower ones. Upgrades 
between levels for the same version are 
the price difference plus $25. 


STUDENT LEVEL $145. 
text & scaled/clipped graphic windows, 
powerful parsing, formatting, file and 
device I/O 

PERSONAL LEVEL $245. 
software floating point, quad scaled 
integer, automatic optimizer 

PROFESSIONAL LEVEL $395. 
hardware floating point, turnkey, seal, 
Rosetta Stone Dynamic Linker, 
round robin & time slice multitasker, 
dynamic string manager, file and 
sector mapped blocks 

PRODUCTION LEVEL $495. 
metacompilation for DOS or ROM, 
full system ROMability, direct 
compilation of C data structures, 
MetaWINDOW-C by Metagraphics 


Options: 

TurboWindow-C (Metagraphics) $ 79. 
interface $ 29. 

BTRIEVE (Novell) $175. 
interface $ 29. 


FOOPS object oriented Forth $ 45. 
GigaForth (80286 native mode) $295. 
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epsilon 









2 Ve rsio n 4.0 








State of the Art 
programmer's editor for DOS, OS/2, 
editor Xenix & Unix for PC/XT/AT's 
|? 8 8 . these products—every one of 
4 - them—are ones we wouldnt hesitate for a 
an ie moment to recommend.’ (Byte, Jan. 1989) 
ae ‘ 
ne = Unrivaled Undo AND Redo 
| H Epsilon gives you the most complete Undo and Redo of any PC 
BYTE programmer's editor. You can undo any sequence of changes with a 





DISTINCTION 


Ultimate Customizability . .. 


Epsilon features the most powerful extension language of any PC 
editor. We call it EEL, for Epsilon Extension Language. EEL gives 


touch of the Undo key. In fact, you can undo the last few hundred or 
SO Operations—you set the limit. And unlike the "full" undo offered by 
some other editors, Epsilon has Redo, so you can undo your undo's. 
You can even redo your undo's, and undo your redo's! This flexibility 
keeps you from losing your work by undoing too much. 


"", .but the piéce de résistance is EEL, a C-like extension 
language that comes with its own compiler. Lugaru Software 
has implemented Epsilon's entire user-interface in EEL so you 








you the rich syntax and data types of C, so you can easily extend or 
customize the editor to suite your taste. EEL is a real language, not 


an afterthought. In fact, all of Epsilon's commands are written in EEL, 


can, for example, create your own syntax-sensitive modes or 
program the help system to browse through your source 
libraries." (Byte, Jan. 1989) 


and you get complete source code to all the commands! 


C-like extension language, called EEL 
Source code to all commands 

Convenient multilevel undo plus total redo 
Scans compiler errors (customizable) 
Swaps out of memory for big compilers 
Unlimited file size, number of files 

On-line tutorial for quick startup 

As many windows as will fit on the screen 
Supports large displays (like VGA & EGA) 
Context sensitive help autoconfigures 

Tags package indexes subroutine definitions 
Files can be larger than available memory 
Fully utilizes EMS memory 

Interactively customizable keyboard 
EMACS-style command set 

Record keystroke sequences 

Multitasks compilers, even under DOS 
Language support (C, Lisp, etc.) 

Completion on file names, commands, tags, ... 
Full command line editing 

Optional backups 

Regular expression search and tagged replace 
Source level debugger & profiler for EEL 

Do interrupts from EEL (DOS) 

Call any dynamic-link library for EEL (OS/2) 
Saves deleted text (n times) 

Navigate your directory structure 

Not copy protected, for your convenience 





_.. & True Multitasking Compiles! 


Epsilon's exclusive multitasking facility lets you run your compilers, 
utilities, or even the DOS command processor, in an Epsilon window, 
WHILE YOU EDIT. You'll be amazed to see your compiler chugging 
away while you continue to edit your files. No more dead compile 
time! If any compiler errors appear, just touch a key and Epsilon 
parses the error message, then jumps right to the offending 
line-while your compiler is still running! Don't be fooled by 
misleading claims from other vendors: Epsilon is the ONLY editor for 
DOS with this feature! Of course, Epsilon's multitasking also works 
under OS/2, Xenix, and Unix. 


"This feature is especially useful in a programming 
environment because compilers also can be run in the process 
buffer. . . If the screen is split into multiple windows, one of 
which Is the process window, the user can see the compilation 
output while continuing to edit... A single command takes the 
user to the next error line in a source file and displays the error 
on the bottom of the screen." (PC Tech Journal, May 1987) 





Lugaru Software Ltd. / 5843 Forbes Avenue / Pittsburgh, PA 15217 
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Listing Four (Listing continued, text begins on page 16.) 


code SEGMENT PUBLIC ’ CODE’ 
ASSUME CS:code,DS:nothing, ES:nothing 


PGROUP GROUP CODE 


KKK KKK KKK KKK KK KKK KK KK KK KKK KK KKK I IKK IKK IK KK IKK KK KR KKK KKK KKK KK KKK KKK KKK KKK KKK 


Smalltalk/V286 Reserved Area 


KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KKK 


Se Ne 


=e 


ORG 0 
DW OFFSET install ;installation routine entry point 
DW 0 ;reserved for future use 
DW 0 
DW 0 ;real mode segment of this code 


DW OFFSET primTable ;addr of table of primitives and entry points 
DW 0 ;real mode segment address of protected mode 
;parameter area 


DW 0 ;cell used for real mode calls to VM 
DW 0 


POR IIIIOIIIIIIIOIIOIIIO IO I k k 
; Local Data 


POR RR III III IO III IOI 


initialized flag DW 0 

Socket_PB DB 32 DUP (0) 

Name Buffer DB MAX NAME SIZE DUP (0) 
Data Buffer DB MAX BUFFER SIZE DUP (0) 


eK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KR KKK KK KR KK RK kK 


’ 
; The socketPrimitive operation dispatcher 
ORR RII IO III III I I 


' 


ocketPrimitive PROC FAR 

Dispatch the socket primitive specified by opcode. 
PARAM(1) is the opcode 
PARAM(2) is the argumentArray 


Me Me Be Me 


enterPrimitive 
isSmallPosInt &l1t;WORD PTR [BP+arglptr+2] 
&gt;opcode SmallInteger? 


JE ok_opcode 
FAIL ;FAIL if not 
ok_opcode: 
MOV AX, initialized flag ;perform initialization 
OR AX, AX 
JNE initialized 
PUSH BP 
CALL socket_install 
POP BP 
CMP AX, 0 
JE initialized 
SUCCEED_ERROR 
initialized: 
MOV AX, WORD PTR [BP+arglptr] ; opcode 
; check opcode bounds 
CMP AX, 0 
JL exit FAIL 
CMP AX,MAX OPCODE 
JG exit FAIL 
SHL AX,1 
MOV SI, AX 
; dispatch operation 
MOV AX,WORD PTR DS: [Socket_Primitives+SI] 


JMP AX 

SUCCEED POSITIVE INTEGER 
exit FAIL: 

FAIL 


socketPrimitive ENDP 


pK KK IK KKK RKO OOOO IO ORO OR ORI OR IOI OR RR kk tok 


, 
; The socket event handler - called by resident driver in real mode 
PRI II IRI RIKKI IOI kk ak 


socket_event_handler PROC FAR 
MOV AX, Network VMInterrupt 
ISVinterrupt VM 
RET 

socket_event_handler ENDP 


g KKK KKK KKK KKK KR KKK KK KR RK KR KK KKK OR IO ORO ROR RO OR ROO OR KOK OR kok 


General purpose success exit 


’ 

, 

: AX = integer value to be returned (positive or negative) 
Pitti tee eee eee CCCP SSCS CSS Se SS CCC SCS SS SSCS SSCS SSCS CCC CCCe SC. SS 


’ 


;SUCCEED INTEGER PROC NEAR 
; CMP AX, 0 
; JL SUCCEED NEGATIVE 


: SUCCEED _POSITIVE_INTEGER 
;SUCCEED_NEGATIVE: 

; SUCCEED _NEGATIVE_INTEGER 
;SUCCEED_INTEGER ENDP 


POIROT 
: Install Socket Event Handler - called automatically 

f by dispatch 
’ 
; 


BKK KKK KKK KKK KKK RIKKI KKK KKK IKK RIK KK IO KIO IO IO OR OR IO OR RIOR OR KK RK Ok 


socket_install PROC NEAR 
MOV AX, 1 


100 


MOV SI,OFFSET initialized flag 

MOV DS: [SI] , Ax 

SET PB FOR OPCODE register event handler 

MOV WORD PTR DS:PB Event_Handler [BX], OFFSET 

socket _event_handler 

MOV AX, DS: [realCodeSeg] 

MOV _ WORD PTR DS:PB Event_Handler+2 [BX], AX 
MOV BYTE PTR DS:PB errno[BX],EDRIVER 

MOV WORD PTR DS:PB Return _Code[BX],-1 


CALL NETWORK 
RET 
socket_install ENDP 


KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK IK KKK KKK KK KK KKK KKKKKKKKKKKKK 
’ 


; The socket operations 
PORK IK KK KKK KK KK KKK KK KKK KK KK KK I IK II II KKK I IK IK TKK KK KK KKK KKK KK KK KK 


op_unimplemented PROC NEAR 
MOV AX, EINVAL 
SET errno 
SUCCEED ERROR 
op_unimplemented ENDP 
op_closeAll PROC NEAR 
SET PB FOR OPCODE socket _close all 


CALL_NETWORK 
SUCCEED INTEGER 
op_closeAll ENDP 


KKK KKK KKK KKK KEK KKK KK KKK KKK KKK KK IK KKK KKK KEK KKK KK KKK KKK KKK KKK KKK KKKEK KKK KKK KK KKK 


" 
; deinstall() - perform required cleanup before Smalltalk/V exit 
POR KKK RR RK KK KK KK RK RII KKK KK KOKO I IIIT TIKIT OI IK KKK 


‘ 


op _deinstall PROC NEAR 


MOV AX, 0 

MOV SI,OFFSET initialized flag 

MOV DS: [SI] , AX 

SET_PB FOR OPCODE_register_event_handler 

MOV WORD PTR DS:PB Event Handler [Bx], 0 
MOV WORD PTR DS:PB Event _Handler+2 [BX] ,0 


CALL_NETWORK 
SUCCEED INTEGER 
op_deinstall ENDP 


eK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK 


; socket () 
F ARG 1 Address Format 
; ARG 2. Type 
: ARG 3 Protocol 
POR RK KR KKK KK IKK IK KK KOK TOTTI KKK OK IOI ITT IT IK RK KK KK 
op_socket PROC NEAR 
SET_PB FOR OPCODE socket 
GET POSITIVE INTEGER _ARG 1 
MOV DS:PB Address Format [BX],AX 
GET POSITIVE _INTEGER_ARG 2 
MOV DS:PB Type[BX] , AX 
GET_POSITIVE_INTEGER_ARG 3 
MOV DS:PB Protocol [BX] ,AX 


CALL_NETWORK 
SUCCEED INTEGER 
op_socket ENDP 


;sets errno, result in AX 


; doEthernetInt 

; This procedure executes in REAL MODE. The parameter block has 
; been filled. setup es:bx to point to the parameter block and 
; call the ethernet driver. 


doEthernet Int PROC FAR 


PUSH AX ; Save registers 

PUSH BX ; 

PUSH ES ; 

MOV AX,CS ; 

MOV ES, AX 7 es points to this segment 
MOV BX, OFFSET Socket_PB ; bx contains offset to pblock 
INT Resident Driver Interrupt ; call driver 

POP ES ; restore registers 
POP BX ; 

POP AX ; 

RET 


doEthernetInt ENDP 


;table of primitive names and entry points 


primTable: 
DB ‘socketPrimitive’ 7Smalltalk name of primitive 
DB 0 
DW offset socketPrimitive ;offset of entry point 
; more entries can go here 
DW 0 ;end of table 
;installation routine, called at the time the module is loaded 
install PROC FAR 
ret ;we have nothing to do, so return 
install endp 
code ENDS End Listings 
END 
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NEW! 
NEW! 


Updated! 


NEW! 
NEW! 
Updated! 


NEW! 


NEW! 
Updated! 
Updated! 


Undated! 


NEW! 


Updated! 


r 
Updated! 
NEW! 


NEW! 


C CODE FOR THE PC 


source code, of course 


MS-DOS File Compatibility Package (create, read, & write MS-DOS file systems on non-MS-DOS computers) .......... vie a @OO0 
Bluestreak Plus Communications (two ports, programmer’s interface, terminalemulation) .................:. . . . $400 
C+O Data Structures Library (multiple inheritance, messaging, excpetion handling, call-back) ...........2.-020084 . % « BOlD 
pBase (relational DBMS with debugging calls and sparse table & repeated field support)... 2... 2... eee ee eee » « « $32 
CQL Query System (SQL retrievals on B-trees pluswindows) ............ 0.0002 eee er ee . « % BORD 
Sy so 5.0 (high-resolution, DISSPLA-style scientific plots in color & hardcopy) ........... 2.2.20. 8 50504 | : & » oe 
PC Curses (Aspen, Software, System V compatible, extensive documentation) ............... oe ee ee - » « 9200 
Code Base (database manager, dBase and Clipper compatibile indes & data files; Version 4.0)... ...... eee ee Be ce ee $260 
MEWEL (extensible window and event library by Magma Software; message-passing & object-oriented; SAA-compatible; dialog editor) . . $250 
TurboTRX (Release 2.0; HP, PS, dot drivers; CM fonts; LaTgX; MetaFont) ................. eee es oe ee eee $250 
Greenleaf Data Windows (windows, menus, data entry, interactive form design; specifycompiler) ....... i ar ae a ee ee is «eee 
Greenleaf Communications Library (interrupt mode, modem control, XON-XOEF: Specily COMPUEI) = eve ky 3s wee eS ea eS e+ te BATS 
QuickGeometry Library (large collection of mathematics, graphics, display & DXF subroutines for CAD/CAM/CAE/CNC) . .. . . sie ene 
Sherlock eben ) a ee ie he ee oe a a 2 ae ee ae eee + 4, see 
CBTree (B+tree ISAM driver, multiple variable-length keys) . . 2... 2 2. ee ee ee es ea a ee ee ee $165 
AT BIOS Kit (roll your own BIOS with this complete set of basic input/output functions for ATs) ....... Se 8 wie we » « « 9160 
Greenleaf Functions (296 useful C functions, all DOS services; specify compiler) .............. ee a . . « $160 
WKS Library Version 2.0 (C program interface to Lotus 1-2-3, dBase, Supercalc 4, Quatro, & Clipper) .... . ey ae are a ee ae $155 
OS/88 (U *+x-like operating system, many tools, cross-development from MS-DOS) ............. a ee ee ee $150 
ME Version 2.1 (programmer’s editor with C-like macro language by Magma Software; Version 1.31 still $75)... 2... 2... -. 2... $140 
VTEK 4.3 (terminal emulator; VT102/100/52 & Tek 4010/14/15; LIM 4.0; 26 printers; Kermit& XMODEM) ........... “eee oe 
Vmen/C (virtual memory manager; least-recently used pager; dynamic expansion of swapfile) ........ % imag te 30 eveee ap4 ae 
Turbo G Graphics Library (all popular adapters, hidden lineremoval) . . . . . 2... eee ee ee eee ee ee a ae  . a O13) 
TurboGeometry (library of routines for computational geometry) . . . . . 2. ee ee ee ee ee ee ty te gh tek reer ge 3 5. 
Install 2.3 (automatic installation program; user-selected partial installation; CRC checking) ......... i Ge ew ee . « « $120 
TE Editor Developer’s Kit (full screen editor, undo command, multiple windows) . ...........:. ee oe s « + OD 
Minix Operating System (Version 1.3; U**x-like operating system, includesmanual) ............. oe ae 2 ee & . . . $105 
Hyperlext Viewer Sot aaa hypertext system; multi-file documents; includes Tiny Curses)... ........ ce ce he me ee < » Spe 
PC/IP (CMU/MIT TCP/IP for PCs; Ethernet, Appletalk & NETBIOS drivers, RVD, update by Dan Lanciani). .......... . . . $100 
B-Tree Library & ISAM Driver (file system utilities by Softfocus) . . 2... 1. ee ee ee ee es a ee . « « pk00 
The Profiler (program execution profile tool) 2. 6 6 6 6 ee ee $100 
QC88 C compiler (ASM output, small model, no longs, floats or bit fields, 80+ functionlibrary) ........ a ee . . . $90 
Otter 1.0 (beautiful theorem-prover by Bill McCune; includes manual & two books by Wos; complete starterkit). . 2... ee eee $80 
C Windows Toolkit (pop-up, pull-down, spreadsheet, CGA/EGA/Hercules) .. 2... 1. 1 ee ee eee a a a ee . . . $80 
JATE Async Terminal Emulator (includes file transfer and menu subsystem) ........ - e+e ee es $80 
Polyglot Lisp-to-C Translator (includes Lisp interpreter, Prolog, and simple calculus prover) . . ©.) eee ee ee $80 
MultiDOS Plus (DOS-based multitasking, intertask messaging, semaphores) . . . . . 1 / ee ee ee ee ee $80 
Make (macros, all languages, built-inrules) ©. 2 2 1. 6 6 eee ee ee ee Se 
tO C function to evaluate ASCII infix expression string; 17 built-infunctions) . 2... 2. ee ee ee ja 9 able 
XT BIOS Kit (roll your own BIOS with this complete set of basic input/output functions for X'Is) . 6. ee ee ee $75 
Professional C Windows (lean & mean window and keyboard handler)... ........-.. ad de Se a eS OR, ee $70 
Heap Expander (use LIM-standard expanded memory as anextensionoftheheap) ....-....-.-...-. ee eee ee ine io 
Ip (flexible printer driver, most popular printers supported) . 2. 6 1 6 ee ee ok oe eee ee i ne ee 
SYSKIT (rommable or TSR debug/monitor; easilyexpanded) . . . . - - - ee eee ok & el Ae as ~ «GO 
Quincy (interactive Cinterpreter) .......... cle Ge ch Ge 6: a. he ee BS Si ow eh ee vdeo €, ag) a oe ele ia OR 
Symtab (general-purpose symbol table construction and management package) . . . . - ee ee ee ee $60 
Tree (general-purpose parse tree construction and management package)... . - 6 6 ee ee ee $60 
Coder’s Prolog (Version 3.0; inference engine for use with C Say a woes 2:8 eee oe ee ws 8 $60 
Async-Termio (Unix-compatible general terminal interface for MS-DOS . . . 2. 1 eee $55 
Backup & Restore Utility by Blake McBride (multiple volumes, file compression & encryption) < eer ee Bee ee we, ee $50 
ae rep (exceptionally fast, revolutionary text searching algorithm; also searches sub-directories) . ©... ee 2 ee ee ee es $50 
OBJASM (convert .obj files to .asm files; outputis MASM compatible) ............-. eee ee eS we Be oe oe 
Polyglot TSR Package (includes reminder, bookmark, virus catcher, cache manager, & speech generator)...» - - e+e ee es + > » 100 
Multi-User BBS (chat, mail, menus, ee displays; does not include modem driver) ....... . oe se oe oe ee oe ew A o4 « SoU 
Virtual Memory Manager by Blake McBride (LRU pager, dynamic swap file, image save/restore) ©... ee ee ee $40 
Heap I/O (treat all or part of a disk file as heap storage [eee ee wae ee oe oe gS a re ee ee | 
ate ’s System Tools (multi-tasking window managerkit) . . 2... 7) 6 ee ee ee ees (toa o 6 ww ew 6 Bas .. . $40 
OOPS (collection of handy C++ classes by Keith Gorlen of NIH; Version2.2) . 2. 2... - ee ee ee Dwwe os +e & F i= 4 a 
Bison & PREP (YACC workalike parser generator & attribute grammar preprocessor; now includes documentation)... ..... $35 
PC-XINU (Comer’s XINU operating system forPC) . . 2 1 6 6 we ee eee ee $35 
CLIPS (rule-based expert system generator, Version4.2) 2 6 6 1 6 ee ee ee $35 
Tiny Curses (Berkeley curses package see Oe eS PRR ee ee ee wy tS $35 
Polyglot RAM Disk (change disk size on the fly; includes utilities)... ........ a ae $30 
Clisp on with extensive internals documentation). . .......... SR eRe PAA REDE eee De ee 
Translate Rules to C (YACC-like function generator for rule-based systems) eee ae ee ee ee: 
6-Pack of Editors (six public domain editors for use, study & hacking)... ........... ee ee $30 
Crunch Pack (14 file compression & expansion programs) ......... ee rae ee a ae a ee ee a ee ee 
Pascal P-Code Compiler & Interpreter or Pascal-to-C Translator (Wirth standard Pascal) . . . . . . ee ee ee ae ae 
ICON (string and list processing language, Version oe : a & Sa ees Se eo ee & ch he ee eee ROE be at me @ Oe Weed 
FLEA trast lexical analyzer generator; new, improved LEX; Version1.1). . 2 6 6 6-1 ee ee $25 
LEX (lexical analyzer generator, an oldie but a goodie) ..........-....-. haw Cee eek OED eee eee 
Auto Trace a Sel tracer and memory trashercatcher) ...... 2... ee ee ee ee es on eRe EE eee 2 ee eo eee ee 
Data Handling Utilities in C (data entry, validation & display; specify Turbo C or Microsoft) ©... - - ee ee ee ee $25 
Arrays for C (macro package to ease handling of arrays). . 2... 1. ee ee ee ee es <<a pied bee eee eae eae Oe 
A68 (68000 cross-assembler) .. ...... 2.2... cb ye we we oe EL eee 6b ba ae 4 ee ROS oe we we ee 
List-Pac (C functions for lists, stacks, and queues) ...........-. ee eee eee ORF BB eRe e Ge ee Gs « « # ebZo 
XLT Macro Processor (general purpose texttranslator) . ......... cue ew keh ae eee ee eee ew ee oe 
C/reativity (Eliza-based notetaker) ........ ‘he he ee Re we a wh ae ee ee ee oe eo ee ee ee 
Data 
GenBank DNA Sequences (Release 59.0; includes demo disk of Pearson FAST/A programs) . - - - - - 5 ee ee ee tt tt $150 
Protein Sequences (over 10,000 sequences; includes demo disk of Pearson FAST/A programs) . . 1 ee 2 ee ee ee $60 
Smithsonian Astronomical Observatory Subset (right ascension, declination, & magnitude of 258,997 stars) . 2. - / - 6 2 ee ee $60 
Moby Words (500,000 words & phrases, 9,000 stars, 15,000names) .. . . - . ee ee ee es ie ncchenoerGestewueuwse 
U. S. Cities (names & longitude/latitude of 32,000 U.S. cities and 6,000 state boundary points). ©... 6 ee ee $35 
The World Digitized (100,000 longitude/latitude of world country boundaries) ....- +--+: : wiebaeme hegeweeva en oo o Seo 
KST Fonts (13,200 characters in 139 mixed fonts: specify TEX or bitmapformat) . . - . - eee ee $30 
USNO Interactive Computer Ephemeris (high-precision moon, sun, planet & star positions). ©. - 6 ee ee ee $30 
NBS Hershey Fonts (1,377 stroke characters in 14fonts). ©... - 6 6 ee eee ee ts a ee Be ewe ee a eR oe S* ED 
U. S. Map (15,701 points of state boundaries) . .°. © 6 6 6 ee ee ee tt ee es ee $15 
The Austin Code Works Voice: (512) 258-0785 
11100 Leafwood Lane acwlinfo@uunet.uu.net | BBS: (512) 258-8831 
Austin, Texas 78750-3409 USA FAX: (512) 258-1342 
Free surface shipping for cash in advance For delivery in Texas add 7% MasterCard/VISA 
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SHERLOCK 


a 
ebusding 
Library 


Sherlock features a library of functions called by macros 
for tracing, profiling and debugging C programs. Includes 
full C source code and tools to insert and delete macros 
automatically. Put Sherlock on your case today. Call or 
write for a demo disk and complete technical information. 
Compatible with Turbo C® and Microsoft® C. 


$195 


Money-Back Guarantee 
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A PRODUCT OF EDWARD K. REAM © 19839, 
1617 Monroe Street * Madison, WI 5371| 


Turbo C is a trademark of Borland International. 
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@141 color and pattern fills 
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FORTRAN CONNECTION 


Listing One (Text begins on page 22.) 


/* DOT.C - uses Lahey FORTRAN’s random number generator to randomly 
place pixels on the screen. 
This example demonstrates how to call F77L functions and 
subroutines from a C program. 
Uses Initialize() from Borland’s BGIDEMO example to 
perform hardware detection, load the appropriate BGI 
driver and initialize the system to graphics mode. 
Link line using Borland’s TLINK is as follows: 
link be£771.150+c01+frandtdo frand, frand, ,emu+mathl+cl+f£771 

* 

/ 


#include <stdio.h> 
#include <stdlib.h> 
#include <graphics.h> 


char *DriverNames[] = { 
"Detect", 
" CGA " P 
" EGA " ; 
"HercMono", 
"VGA" 
}3 


struct PTS { 
int x, y; 
be /* Structure to hold vertex points */ 


/* The Graphics device driver */ 
/* The Graphics mode value at j 
/* Aspect ratio of a pixel on the screen*/ 
/* The maximum resolution of the screen */ 
/* The maximum # of colors available ol | 
/* Reports any graphics errors a | 

/* Used to read palette info */ 


int GraphDriver; 

int GraphMode; 

double AspectRatio; 

int MaxX, MaxyY; 

int MaxColors; 

int ErrorCode; 

struct palettetype palette; 


/* at 
/* Function prototypes ard 
/* x/ 


extern void frand (int *, int *); 
extern void seed_rnd (int *); 
void Initialize(void) ; 

void RandomDot (void) ; 


/* Begin main() */ 


main () 
{ 
Initialize(); /* Set system into Graphics mode af 
RandomDot () ; /* Place pixels at random locations ef 
closegraph (); /* Return the system to text mode my 
} /* End main() */ 
/* INITIALIZE: Initializes the graphics system and reports id 
/* any errors which occured. “y 


void Initialize (void) 


int xasp, yasp; /* Used to read the aspect ratio*/ 
GraphDriver = DETECT; /* Request auto-detection xy 
initgraph( &GraphDriver, &GraphMode, "" ); 

ErrorCode = graphresult (); /* Read result of initialization*/ 


if( ErrorCode != grOk ){ /* Error occured during init td 
printf(" Graphics System Error: %s\n", grapherrormsg( ErrorCode ) ); 
exit( 1 ); 

} 

getpalette( &palette ); /* Read the palette from board */ 

MaxColors = getmaxcolor() + 1; /* Read maximum number of colors*/ 

MaxX = getmaxx(); 

MaxY = getmaxy(); /* Read size of screen */ 

getaspectratio( &xasp, &yasp ); /* read the hardware aspect */ 

AspectRatio = (double)xasp / (double) yasp; /* Get correction factor */ 


} /* End Initialize */ 


void RandomDot (void) 

{ 
int seed; 
int i, x, y, height, width, rand val, color, temp; 
struct viewporttype vp; 


getviewsettings( &vp ); 
height = vp.bottom - vp.top; 
width = vp.right - vp.left; 


seed_rnd( &seed ); /* Seed F77L’s Random # Gen. Output discarded */ 


for( i=0 ; i<1000 ; ++i ){ /* Put 1000 pixels on screen mi 
temp = width - 1; 
frand( &rand_val, &temp ); /* Call F77L’s RND function */ 
x = rand val + 1; 
temp = height - 1; 
frand( érand_val, &temp ); 
y = rand val + 1; 
frand( &rand_ val, &MaxColors ); 
color = rand val; 
putpixel( x, y, color ); 
} /* End for loop */ 
/* End RandomDot() */ — 
End Listing One 


(continued on page 104) 
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FORTRAN CONNECTION 


Listing Two (Listings continued, text begins on page 22.) 


c 
c FRAND.FOR - Calls F77L’s random Number generator RND. 
Cc Demonstrates how to call a FORTRAN function from C ate 
C Listing Four 
c Inputs : None 
c Outputs: RETVAL je do_srch.c 
we q_sort () 
FUNCTION FRAND (N) *k This function will take a one dimensional array of length n and 
a* integer width and will sort it in ascending or descending order. 
BCEXTERNAL FRAND xx Nothing is returned -- status always equals zero if any checking 
INTEGER*2 N, FRAND xe is done by the FORTRAN calling program. 
ae inputs: array ptr to array 
FRAND = INT(RND() * N ) ** length number of elements in array 
RETURN ial order 0 = ascending 
END ax 1 = descending 
aig output: none 
c “7 
c SEED RND - Used to seed F77L’s random Number generator. #include <stdio.h> 
c * Demonstrates how to call a FORTRAN subroutine from C #include <stdlib.h> 
Cc 
c Inputs : None int q Sort (void *array,int. *length,int *order); 
c Outputs: RETVAL int ascending (void *first,void *second); 
int descending (void *first,void *second) ; 
SUBROUTINE SEED RND(RETVAL) int bin_search (void *array, int *length, int *key); 
BCEXTERNAL SEED RND int q_sort (void *array,int *length,int *order) 
INTEGER*2 RETVAL { 
int status = 0; /* return value */ 
RETVAL = INT(RRAND () ) 
RETURN qsort (array, (size t) *length,sizeof (int), 
END (int (*) (const void *,const void *)) ((*order == 0) ? ascending : descending) ); 
return (status) ; 
} /* end of do_sort() */ 
End Listing Two 
/* ascending () 
we This function is used by qsort and/or bsearch to return a 
ak value based on the comparison of two inputs. qsort uses this 
e..i8 si function to perform an ascending sort. 
Listing Three kk inputs: first ptr to first element 
ae second ptr to second element 
Cc ae return: result of comparison 
c. SEARCH.FOR uses rnd() to generate a list of random values of 
Cc that are then passed to C’s qsort routine for sorting in 
Cc ascending and descending order. Once sorted, the values int ascending (void *pl, void *p2) 
C are dislayed and the user is prompted for a value to search { 
Cc for. The input value is passed to C’s bsearch function and return ({*(int-*) pl < * (int: *). pz) 2? (-1) : (*(int *) pl == *(int *) p2) ? 
re the results of the search are displayed (OP 3-44) )2 
Cc } 
re: To link, use the following command line: 
Cc /* descending () 
C tlink £77lbc.150+searchtdo srch, search, ,emutmathl+cl+f£771 ia This function is used by qsort and/or bsearch to return a 
c ~ ** value based on the comparison of two inputs. qsort uses this 
PROGRAM SEARCH a function to perform a descending sort. 
he inputs: first ptr to first element 
BCEXTERNAL q sort, bin search xe second ptr to second element 
INTEGER*2 A(0:20), B(0:20), C(0:20), I, J ll return: result of comparison 
INTEGER*2 FOUND, bin search, VAL, R | 
DO 10 I = 0, 19 int descending (void *pl, void *p2) 
A(I) = 0 { 
B(I) = 0 return ((*(int *).pl < *(int *) p2) ? (1) : (*(int *) pl == *(int *) p2) ? (0) 
C(I) = 0 > (-1))? 
10 CONTINUE } 
R = rrand() Lx bin_search() 
PRINT *, R me This function takes a sorted FORTRAN array and a key and 
DO 20 I = 0, 19 hs attempts to locate the key value using C’s bsearch(). The 
at function passes back the value if found, or 0 if not found. 
A(I) = 32767.0 * rnd() ss inputs: array ptr to an array 
B(I) = A(I) *& length length of the array 
C(I) = A(I) x% key ptr to a key value 
ui return: result of search 
20 CONTINUE fi 
PRINT *, ‘Input Ascending Descending’ int bin_search (void *array, int *length, int *key) 
PRINT *, ’MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM ’ { 
call q sort (A, 20,0) int *ptr; 
call q sort (B,20,1) 
DO 30 J = 0, 19 ptr = (int *) bsearch(key, array, (size t) *length, sizeof(int), ascending) ; 
PRINT 40, C(J), A(J), B(J) return(ptr != NULL); 
30 CONTINUE } 
40 FORMAT (16,113,113) 
PRINT *, ‘Enter value to search for: ’ 
READ *, VAL 
FOUND = bin_search(A, 20, VAL) 
IF (FOUND .NE. 0) THEN 
PRINT *, VAL, ’ found in list!’ 
ELSE 
PRINT *, VAL, ’ NOT found!’ 
ENDIF 
End Listings 
END 
End Listing Three 
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POSTS CRESS 





Listing One (Text begins on page 30.) 


/*+ 

















Name: pexac . fprintf(f, "There are %ld total bytes in the image.\n", 
Author: Kent J. Quirk ((long)hdr->lorighty - (long)hdr->uplefty + 1) * 
Abstract: This file contains subroutines to read PCX files. (long) hdr->bytesperline) ; 

y return; 

#include <stdio.h> } 

#include <stdlib.h> /t*t*# pox alloc line **** 

#include <malloc.h> Abstract: Allocates enough space to store a complete scan line from the 

#include <memory.h> current PCX file. 

#include "pcx.h" Parameters: The header pointer. 

[REPE- OO 8 9 8 ae Ah Oa Coe. Fors . Returns: A pointer to a "big enough" block of allocated space, or 
Abstract: Reads the header of a PCX file. null if not enough space or an error occurred. 
Parameters: A data storage area for the header, an open file. FORK IO IIT I IORI I IK IO / 

Returns: The pointer to the data storage area passed, or NULL if error. BYTE *pcx alloc line(PCX HDR *hdr) 
Comments: The file should be opened in binary mode. { 7 - 7 
FOO IOI II IO I I I IOI ICI / return (calloc(hdr->nplanes, hdr->bytesperline) ) ; 





PCX HDR *pcx_read_ header (PCX_HDR *hdr, FILE *f) } 
{ /*kt* pox next line *** 







fseek(f, OL, SEEK_SET); /* header is at top of file */ Abstract: Reads the next line from the PCX file. 

if (fread(hdr, 1, sizeof(PCX_HDR), f) != sizeof (PCX_HDR) ) Parameters: Pointer to the header, a pointer to the line area (or NULL 
return (NULL) ; for automatic allocation), and the open data file. 

else Returns: A pointer to the line area, or NULL if there was a problem. 
return (hdr) ; Comments: To read the first line, call pcx _read_header() first. 





This sets the file position to the beginning of the data. 
pRert® DCX print header **x* FOI I OO IO IO IO IO TO IO IK IK / 



























Abstract: Printf’s a PCX file header data to a given file. BYTE *pcx next line(PCX HDR *hdr, BYTE *line, FILE *f) 

Parameters: The PCX file header, the file to write the data to. { 7 ~ 7 

Returns: Nothing int c, len; 
FORK I IKK II IO KK / BYTE xdp; 
void pcx print_header(PCX_HDR *hdr, FILE *f) WORD linesize = hdr->nplanes * hdr->bytesperline; 
{ WORD i; 

char *t; . if (line == NULL) 

if (hdr->pcx_id != 0x0A) if ((line = pcx_alloc_line(hdr)) == NULL) 

{ . return (line); 

fprintf(f, "Not a PCX file.\n"); dp = line; /* point to data */ 
return; for (i=0; i<linesize; ) 
{ 

switch (hdr->version) { if ((c = fgetc(f)) == EOF) 

case 0: t="2.5"; break; return (NULL) ; 

case 2: t="2.8 with palette info."; break; if ((c & PCX COMPRESSED) == PCX COMPRESSED) 

case 3: t="2.8 without palette info."; break; { ~ a 

case 5: t="3.0"; break; 

’ ' len = (c & PCX MASK); 

default: t="unknown."; break; if aes fgetc(f)) a EOF) 

; " ‘ Q " return (NULL) , 

fprintf(f, "PCX Version %s\n", t); memset (dp, (BYTE)c, len); 

fprintf(f, "Compression: %s\n", dp += ian 

hdr->encoding==1 ? "Run length" : "Unknown"); < t ine 
fprintf(f, "td bits per pixel\n", hdr->bpp); } ; 
fprintf(f, "Image from (%d, %d) to (%d, %d) pixels.\n", else 
hdr->upleftx, hdr->uplefty, hdr->lorightx, hdr->lorighty); { 
fprintf(f, "Created on a device with %d x %d dpi resolution.\n", xdpt++ = (BYTE)c; 
hdr->display xres, hdr->display_ yres); i++; 





fprintf(f, "The image contains %d image planes.\n", hdr->nplanes) ; } 
fprintf(f, "There are %d bytes per line of data after decompression. \n", } 


hdr->bytesperline) ; . ee 
return (line) ; End Listing One (continued on page 106) 
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POSTSCRIPT 


Listing Two (Listing continued, text begins on page 30.) 


/*+ 
Name: pex.h 
Author: Kent J. Quirk 
Abstract: This file contains information required when handling 
PCX files. 
-*/ 


[RK RI RK RK 


Need these to handle the PCX data below. 


KKK KKK KKK KKK KK KR KK KK RK / 


typedef unsigned char BYTE; 
typedef unsigned int WORD; 


[RK KKK KKK KKK KK KKK RK 


This is the definition of the PCX header. 


KHKKKKKKKEKKKKKKKK KK KK / 


typedef struct { 


BYTE pcx_id; /* Always Ox0A for PCX files */ 

BYTE version; /* Version of the PCX format */ 

BYTE encoding; /* 1 = RLE (RLL) compression */ 

BYTE bpp; /* Number of bits per pixel */ 

WORD upleftx, uplefty; /* position of upper left corner */ 
WORD lorightx, lorighty; /* lower right corner (inclusive) */ 
WORD display xres, display yres; /* resolution in dpi of display */ 
BYTE palette[48]; /* palette data if it fits */ 

BYTE reserved; 

BYTE nplanes; /* number of bit planes of data */ 


WORD bytesperline; 

WORD palletteinfo; 

BYTE reserved2[58]; 
} PCX_HDR; 


/* # bytes in an uncompressed line */ 


[ORK KO IK kK kk 


These two definitions are used to decompress data in the PCX file. 


(The compressed count byte has the top two bits set). 
KKK KK KKK KKK KKK KKK KKK / 


#define PCX_COMPRESSED 0xC0 
#define PCX MASK 0x3F 


[RRR KKK KKK KR KKK KR KK KK 


These prototypes declare the PCX read subroutines. 
KKK KKK RRR KKK KKK KKK KKK / 


PCX_HDR *pcx_read _header(PCX_HDR *hdr, FILE *f); 

BYTE *DCX_ alloc line (PCX_ HDR *hdr); 

BYTE *DCx | next _line(PCX HDR *hdr, BYTE *line, FILE *f); 
void pcx_print_ _header (PCX_ HDR *hdr, FILE *f); 


End Listing Two 
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Listing Three 

/*+ 
Name: prpcx.c 
Author: Kent J. Quirk 


Abstract: This program prints .PCX files (as created by PC Paintbrush 
and other software) on a PostScript printer by converting 
them to a PS-compatible image. The user can scale and 
position the image. 

-*/ 

#include <stdio.h> 

#include <stdlib.h> 

#include <memory.h> 

#include <string.h> 


#define BUFSIZE 100 
#include "pcx.h" 


typedef struct { 
int xpos; 
int ypos; 
int width; 
int height; 
int scale; 
int invert; 
int prt_res; 
int dumphdr; 


} MAPPING; 
/**** copy ps header **t* 
Abstract: Opens the PS header file and copies it to the output. 
Parameters: Filename of the current file (the .PS extension is added 
here) and the output file pointer. 
Returns: 0 if successful, 1 if failure. 


RR KKK RRR RRR KKK RRR KKK KKK KK KK / 


char *copy ps _header(char *name, FILE *outfile, char *stop) 
{ 
static char buf [BUFSIZE]; 


char *bp; 
static FILE *f = NULL; 
if (f == NULL) 
{ 
strcpy (buf, name) ; 
if ((bp = strchr(buf, ’.’)) != NULL) 
*bp = 0; 
strceat (buf, ".ps"); /* open file with this name but .ps ext */ 
if ((f = fopen(buf, "r")) == NULL) 


{ 
fprintf(stderr, "Unable to open PostScript header file ’%s’\n", 
buf); 
return (NULL) ; 


} 
else 
{ 
fputs(buf, outfile); 
} 
while (fgets(buf, 


{ 


BUFSIZE, f) != NULL) 
if ((stop != NULL) && (strncmp(buf, 
return (buf) ; 
fputs(buf, outfile); 


stop, strlen(stop)) == 0)) 
/* bail out right now */ 


} 

fclose(f); 

f = NULL; 

return (NULL); 
} 


[kkk dofile **** 


Abstract: Processes a single PCX file. 

Parameters: char *filename - the input PCX filename (.PCX optional) 
MAPPING *map - the structure containing page position info 
char *psname - the PostScript prologue (.PS will be forced) 
FILE *outfile - the open output file 

Returns: 0 if successful, 1 if no file generated 


ROR TK KK RIK IK KKK RR KK KK KK / 


int dofile(char *filename, MAPPING *map, char *psname, FILE *outfile) 
{ 

FILE *f; 

PCX_HDR hdr; 

WORD i, j, xSize, ysize; 

BYTE *lineptr = NULL; 

char *t% 

char buf [BUFSIZE]; 

long bbox_x, bbox y; 


strcpy (buf, filename) ; 
if (strchr(buf, ’.’) == NULL) 
strceat (buf, ".pcx"): /* add .PCX if needed */ 
if ((f = fopen(buf, "rb")) == NULL) 
{ 
fprintf(stderr, "Unable to open ’%s’\n", buf); 
return(1); 
} 
if (pcx_read_header(&hdr, f) == NULL) 
{ 
fprintf(stderr, "Unable to read header for file '%s’.\n", buf); 
fclose(f); 
return(l1); 


if (map->dumphdr) 
{ 


pcx_print_header(é&hdr, stdout); 
return (1); 


} 
if (hdr.nplanes != 1) 
{ 


fprintf(stderr, "Only able to read monochrome .PCX files.\n"); 


fclose(f); 
return (1); 


(continued on page 108) 
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- Assignaents ———= TO} 


Backup File Toggle 
Beginning of Line 
Block Search Toggle 
Borders Toggle 
Brace Check 
Buffer List 
Case Sensitivity Toggle 
Center Line Horizontally 
Center Line in Window 
Change Directory 
Change Output File 
Change Window 











40,000 Programmers Switched to BRIEF, 
The Programmer's Editor, Because .... 


... Because BRIEF dramati- 
cally increases your produc- 
tivity. Programmers we ve 
surveyed say that on the Ist 
day with BRIEF they were 
already more productive than 
with their previous editor. 


Simple and Intuitive 

90% of BRIEF converts say they were up 
to speed in less than 1 hour. BRIEF’s 
modeless design eliminates confusion — 
keeping it simple enough for a beginner. 
Yet its consistent design makes it easy to 
add to your vocabulary of commands. 


You will love using BRIEF. 
Tough evaluators, including respected 
authors of successful software products 
and reviewers for over 25 different 
publications, consistently pick BRIEF as 
their editor of choice. Will Zachmann of 
Computerworld says BRIEF “is not only 
the best programmer's text editor...but it 
is also a tour de force in the way it was 
conceived and implemented.” 


BRIEF Adapts to You 

SETUP makes it simple to tailor BRIEF to 
your programming style. It’s completely 
menu driven and requires no knowledge 
of BRIEF’s macro language. You can easily 
control things like indenting style, cursor 
size for various modes, keyboard configu- 
ration, rate of keyboard auto repeat, sup- 
port for any of 36 compilers, and much 
more. If you decide to go beyond SETUP, 
you can modify one of BRIEF’s macros... 
or write your own. “Almost complete 
customization and extension of the edi- 
tor” can be done using BRIEF’s macro 
language. — Computer Language 


The Most Complete Undo 
BRIEF’s Undo lets you spend time writing 


new code instead of fixing old mistakes. 
Back up your editing session step-by-step 
and undo just about anything, including 
deletions, insertions, translations, case 
conversions, even your own macros! 

Undo gives you the freedom to begin an 
experiment with confidence. “Works like 
a dream... I almost look forward to mak- 
ing mistakes.” —The C Users Journal 


A partial list of BRIEF features 


Unlimited number of files 

Flexible windowing, unlimited quantity 
File size limited only by disk space 
On-the-fly keystroke macros 


e Fully reconfigurable keyboard 

e Customized for 36 languages/compilers 
e Exclusive 300-level undo safety net 

e Automatic SETUP program 

e Regular expression search and replace 

e Block operations: line, character, column 


e Cut and paste between widows and tiles 

e Compile with automatic error location 
(even if you only have warnings) 

e Pop-up directory window 

e Full featured macro language 

e Context sensitive help 

e Automatic indenting 

e Toll free tech support 

e 24 hour BBS an BIX support 
BRIEF is a trademark of UnderWare Inc. 
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dBASE programmers: Add dBASE intelli- 
gence to your programming environment 
with BRIEF’s special $95 add-on option, 
dBRIEF. “BRIEF with dBRIEF provides a 
dBASE programming environment 

second to none.” — Data Based Advisor 


no further.” 


— Jerry Pournelle 
© BYTE 


GUARANTEE: Make sure BRIEF is 

everything we say it is. You must be 
satisfied. If not, simply return BRIEF 
within 30 days for a full refund. 


BRIEF is $195 (in the US and Canada), 
plus $6 for shipping and handling. 
Specify PCDOS or OS/2. 


Try BRIEF at our risk. 
Call toll-free today 


800-821-2492 


Massachusetts & outside U.S. call 617-337-6963 


extension 282 
> e 541 Main St., Suite 410 
Solution south Weymouth, MA 02190 
< ystems FAX 617-337-7719 











POSTSCRIPT 


Listing Three (Listing continued, text begins on page 30.) 


} 
xsize 
ysize 


t = copy ps header(psname, outfile, "%%BoundingBox") ; 
bbox_x = (long)xsize * (long)map->width 


hdr.lorightx - hdr.upleftx + 1; 
hdr.lorighty - hdr.uplefty + 1; 


* (long)map->scale / 10000L; 


bbox y = (long)ysize * (long)map->height * (long)map->scale / 10000L; 

bbox x += map->xpos; 

bbox y += map->ypos; 

sprintf(t, "%%%%BoundingBox: %d %d %ld %ld\n", map->xpos, map->ypos, 
bbox_x, bbox_y); 

t = copy ps header (psname, outfile, NULL); 


fprintf (out 


file, "/bmap_wid %d def\n", xsize); 


fprintf(outfile, "/bmap hgt %d def\n",. ysize); 


fprintf (out 
fprintf (out 
fprintf (out 
fprintf (out 
fprintf (out 


fprintf (outfile, 
fprintf(outfile, 


file, "/bpp %d def\n", hdr.bpp) ; 

file, "/res %d def\n\n", map->prt_res); 
file, "/x td def\n", map->xpos) ; 

file, "/y td def\n\n", map->ypos) ; 


file, "/scy %d 100 div def\n", map->height) ; 


fprintf(outfile, "scaleit\n"); 
fprintf(outfile, "imagedata\n\n"); 
for (i=0; i<ysize; i++) 


{ 


lineptr 
if (map->invert) 


= pex_next_line(&hdr, lineptr, f); 


for (j=0; j < xsize/8; j++) 


for (j= 


lineptr[j] = ~lineptr[j]; 
0; j < xsize/8; j++) 


fprintf(outfile, "%02X", lineptr[j]); 
fprintf(outfile, "\n"); 


: 


fprintf(outfile, "\nshowit\n"); 
free (lineptr) ; 


fclose(f); 
return (0); 
} 


[were usa g e KKKK 


Abstract: 
Parameters: 
Returns: 


Prints a usage message and dies. 
None 
Never returns. 


RR IR RRR RR RK IKK RK IK KK KR IK / 


void usage () 


printf("PRPCX: by Kent Quirk\n"); 
Given a .PCX file, this program creates a PostScript file \n"); 


printf (" 
printf (" 


which will print the image.\n"); 


"/scx $d 100 div def\n", map->width) ; 
"/scg td 100 div def\n\n", map->scale) ; 


-/* invert if necessary */ 


printf(" PRPCX [-wW] [-hH] [-xX] [-yY] [-sS] [-rR] [-d] [-i] filename\n"); 
Options include: (units) [default]\n"); 


printf (" 
printf (" 
printf (" 
printf (" 
printf (" 
printf (" 
printf (" 
printt.(” 
printf (" 
printt ¢" 
printf (" 
printf (" 
printf (" 
exit (1); 
} 


,**** main * 


The main routine for PRPCX. 


-sSCA set overall scale factor (percent) 


[100}\n"); 


-wWID set horizontal scale factor (percent) [100]\n"); 


-hHGT set vertical scale factor (percent) 


[100] \n"); 


-xPOS set horizontal position (points from left) [0]\n"); 
-yPOS set vertical position (points from bottom) [0]\n"); 
-rRES set printer resolution (dpi) [300]\n"); 
-d dump PCX file info to stdout [off]\n"); 


-i invert image [off]\n"); 


-OFIL set output filename, or use SET PRPCX=filename\n") ; 
The defaults print the image at one pixel per device pixel\n"); 


at the lower left corner of the page.\n"); 


PRPCX.PS must be in the same directory as PRPCX.EXE.\n"); 


kk 


and calls dofile(). 


KOK RO kk kk ke 
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int main(int argc, char *argv[]) 


{ 


int i; 


MAPPING map; 


FILE *outfi 


le = stdout; 


char *outfname = NULL; 


char *filename 


NULL; 


map.xpoS = map.ypos = 0; 


map.width = 


map.invert = 


map.prt_res 
map.dumphdr 


map.height = map.scale = 100; 
0; 

300; 

0; 


if (arge ¢ 2) 


usage () 


. 
’ 


for (i=l; i<argc; i++) 


{ 


if (argv(i](0) == ’-’ {|} argv[i][0] == '/') 
{ 


switch (argv[i] [1]) 
{ 


case ’x’: case ’X’;: 


map.xpos = atoi(argv[i]+2); 
break; 

case 'y’: case 'Y’: 
map.ypos = atoi(argv([i]+2); 
break; 

case 'h’; case 'H’: 


map.height = atoi(argv[i]+2); 
break; 


case ’w’: case ‘W’: 


map.width = atoi(argv[i]+2); 
break; 


case ’s’: case 'S’: 


map.scale = atoi(argv[i]+2); 
break; 


case 'r’: case ’R’: 
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Map.prt_res = atoi(argv[i]+2); 
break; 


Sets defaults, parses command line, 


case ‘i’: case ‘I’: 
mMap.invert = !map.invert; 
break; 

case 'd’: case 'D’: 
map.dumphdr = 1; 
break; 

case 'o’: case '0’: 
outfname = argv[i]+2; 
break; 

case '?’: 
usage (); 
break; 

' default: 
fprintf(stderr, "Unknown option %s\n", argv[i]); 
usage (); 
break; 


} 


else /* process a file */ 


{ 
} 


filename = argv[i]; 


} 
if ((outfname != NULL) |; ((outfname = getenv("PRPCX")) != NULL) ) 
{ 
if ((outfile = fopen(outfname, "w")) == NULL) 
{ 
fprintf(stderr,"Unable to open output file %s", outfname); 
exit (1); 
} 
} 
i = dofile(filename, &map, argv[0], outfile); 
fclose(outfile) ; 
return (i); 


End Listing Three 


Listing Four 
# 

# Program: PRPCX 

# 


7C..0b 78 
cl -c -W2 -Zid -Od -AS $*.c 


pex.iob} ¢ -—pex.c pex..h 

prpcx.obj : prpcx.c pcex.h 

prpcx.exe : prpcx.obj pcx.obj 
echo prpcx.obj+ >prpcx.ink 
echo pcx.obj >>prpcx.ink 
echo prpcx.exe >>prpcx. link 


echo nul >>prpcx.lnk 
link /NOI $(LDFLAGS) @prpcx.1lnk; 


End Listing Four 
Listing Five 


%!PS-Adobe 1.0 


SsTitle: 
$sCreator: 
Pages: 1 
SsBoundingBox: 
%%EndComments 
gsave 
% the next item translates the image from 
% top-to-bottom .PCX format to PS bottom-to-top 
/xform 


{ 
[ bmap_wid 0 0 bmap hgt neg 0 bmap hgt ] 
} def 


/readproc 


{ 
{ currentfile picstr readhexstring pop } 
} def 


/scaleit 
{ 
x y translate 
bmap_wid bmap hgt scale 
72 res div 72 res div scale 
scx scg mul scy scg mul scale 


/picstr bmap wid 8 idiv string def 
} def 


/imagedata 
{ 

bmap wid bmap hgt bpp xform readproc image 
} def 


/showit 
{ 
grestore 
showpage 
} def 


% Will generate <bmap_hgt> lines of image data, 
% each with <bmap wid>/8 bytes of data (in hex). 


$%EndP rolog End Listings 
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A tool for 


codan™ Code Analysis System 
The only code analysis tool 
specifically designed for large C 
systems is codan. It helps you 
navigate quickly and reliably 
through your code by creating 

a useful map to guide you. 


codan analyzes C source code 
and extracts semantics informa- 
tion, making it accessible from a 
database. Common queries are 
handled with built-in reports, or 
you can customize your own. 


With codan, your team can have 
both higher productivity and 
better quality code. It allows you 
to be thorough and consistent 
by guiding you to all the relevent 
places. Nothing slips through 
unnoticed, and you can be con- 
fident of your code. 


Understanding a Large 
System 

Who calls who? Who sets this 
variable? Where is this structure 
modified? Answers to such ques- 
tions help you understand the 
structure of your system. codan 
answers these and more. 


codan shows you the relation- 
ships between functions, vari- 
ables, structures, fields, macros 
and files. The result: less engi- 
neering time and faster time 

to release. 


For more information, or to 
order today, call toll free: 


1-800-225-5800 ext. 216 


Wayland, Mass. 01778 
1-508-358-5858 


implements 
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White-Box QA 
QA can now include reports 

of implicit declarations, calls on 
exit procedures and other spe- 
cialized code practices. codan 
automatically generates system 
documentation such as global 
variables and file contents. 

QA reviews are more complete 
than ever. 


$395 plus $5 shipping and handling (U.S. 
and Canada license). Mass. residents please 
add 5% sales tax. If for any reason you are 
not satisfied, you may return codan within 
30 days for a purchase-price refund. 

DOS, 512K and Hard Disk Required. 

codan is a trademark of implements. 

Patent Pending. . 


© 1989 implements 


CQL QUERY SYSTEM 
ANSI SQL for dBASE III*, C-tree*, BIRIEVE*, and CBTREE* file 
systems. 

$225 including complete C source code. 
Also available with our application development system. the 
Portable Application Support System (PASS), which includes Portable 
Windowing System, Screen I/O System, Form Generation System, 
Report Generation System. 
CQL plus PASS, $395 including complete C source code. 

Tested with Microsoft V5, Lattice V3.1, Xenix 286, Xenix 386, and 
UNIX. 


CQL Features 
© Automatic optimisation 
® Automatic detection and use of indices 
¢ Run time implementation of joins 
e Alias mechanism, sub-queries, interblock references 


e Table driven parser is easily modified 
© DISTINCT, ORDER BY, GROUP BY, and HAVING clauses 
@ COUNT, SUM, MIN, MAX, AVG functions 


PASS Features 


Hardware Independent interfaces provided for IBM/screen 
memory, IBM/BIOS, MS-DOS generic (ANSI.SYS), and Xenix (table 
driven multi-terminal interface adaptable to other large systems). 
Full screen editor with windows. Process intervention points 


provide complete process control for reports, forms and screens. 


* C-tree is a trademark of FairCom. CBTREE is a trademark of Peacock Systems. 
BTRIEVE is a trademark of Novell. dBCIII is a trademark of Lattice Inc. 


Machine Independent Software Corp. 
Suite 160-205 @ 171 Elden Street 
Herndon, Virginia 22070 


703/435-0413 





CIRCLE NO. 146 ON READER SERVICE CARD 


REAL-TIME 
MULTI-TASKING 
KERNEL 


for protected mode 80386 


No royalties @ Intertask messages 

C language support m Message exchanges 
Preemptive scheduler @ Dynamic operations 
Time slicing available — task create/delete 
Configuration Builder — task priorities 

List Manager — memory allocation 
20 us task switch @ Event Manager 

at 16 MHz (no waits) m Semaphore Manager 


Source Code Included 


Manual only 
AMX 386 $3995 US 


(shipping/handling extra) 


$75US KADAK Products Ltd. 


206 - 1847 W. Broadway 

Vancouver, B.C., Canada 

V6d 1Y5 

Also available for 8086, 80286, Ak = (604) 734-2796 
8080, 280, 68000. F (604) 734-8114 
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C INTERPRETER 


Listing One (Text begins on page 38.) 


1: /* Recursive descent parser for integer expressions 
2: which may include variables and function calls. */ 
3: #include "setjmp.h" 
4: #include "math.h" 
5: #include "ctype.h" 
6: #include "stdlib.h" 
7: #include "string.h" 
8: #include "stdio.h" 
9; 
10: #define NUM _FUNC 100 
1l: #define NUM GLOBAL VARS 100 
12: #define NUM LOCAL | VARS 200 
13: #define ID LEN 31 
14: #define FUNC_CALLS 31 
15: #define PROG SIZE 10000 
16: #define FOR NEST 31 
7 
18: enum tok types {DELIMITER, IDENTIFIER, NUMBER, KEYWORD, TEMP, 
19: 7 STRING, BLOCK}; 
20: enum tokens {ARG, CHAR, INT, IF, ELSE, FOR, DO, WHILE, SWITCH, 
Zi RETURN, EOL, FINISHED, END}; 


22: enum double ops {LT=1, LE, GT, GE, EQ, NE}; 
23: /* These are the constants used to call sntx err() when 


24: a syntax error occurs. Add more if you like. 
29% NOTE: SYNTAX is a generic error message used when 
26: nothing else seems appropriate. 

27: */ 

28: enum error_msg 

29: {SYNTAX, UNBAL PARENS, NO EXP, EQUALS EXPECTED, 
303 NOT VAR, PARAM ERR, SEMI _EXPECTED, 

31: UNBAL BRACES, FUNC UNDEF, TYPE __ EXPECTED, 

oct NEST FUNC, RET _NOCALL, PAREN EXPECTED, 

33: WHILE EXPECTED, QUOTE _ EXPECTED, NOT TEMP, 

34: TOO MANY _LVARS}; 


35: extern char *prog; /* current location in source code */ 
36: extern char *p buf; /* points to start of program buffer */ 
37: extern jmp buf e buf; /* hold environment for longjmp() */ 
38: /* An array of these structures will hold the info 


39: associated with global variables. 
40: */ 

41: extern struct var type { 

42: char var_name[32]; 

43: enum variable type var type; 

44; int value; 


45: } global_vars[NUM_GLOBAL VARS]; 

46: /* This is the function call stack. */ 

47: extern struct func_type { 

48: char func_name[32]; 

49; char *loc; /* location of function entry point in file */ 
50: } func_stack [NUM FUNC]; 

51: /* Keyword table */ 

52: extern struct commands { 

53: char command[20]; 

54: char tok; 

55: } table[]; 

56: /* "Standard library" functions are declared here so 


57% they can be put into the internal function table that 
58: follows. 
59: */: 


60: int call _getche(void), call _putch(void); 
61: int call puts(void), print(void), getnum(void) ; 


62: 

63: struct intern _func_type { 

64: char *f name; /* function name */ 
65: int (* p)(); /*-pointer to the function */ 
66: } intern _func[] = 

67: "getche", call _getche, 

68: "putch", call putch, 

69: "puts", call puts, 

70: "print", print, 

71: "getnum", getnum, 

72: "0 /* null terminate the list */ 
13%. }3 


74: extern char token[80]; /* string representation of token */ 
75: extern char token_type; /* contains type of token */ 
76: extern char tok; /* internal representation of token */ 
77; extern int ret value; /* function return value */ 

78: void eval _exp (int *value), eval _expl(int *value); 

79: void eval_exp2(int *value); 

80: void eval_exp3(int *value), eval_exp4(int *value); 

81: void eval exp5(int *value), atom(int *value); 

82: void eval_exp0(int *value); 

83: void sntx_err(int error), putback (void); 

84: void assign _var(char *var name, int value); 

85: int isdelim(char c), look _up(char *s), iswhite(char c); 
86: int find var(char *s), get _token(void); 

87: int internal func(char *s); 

88: int is_var(char *s); 

89: char *find func(char *name) ; 

90: void call (void); 

91: /* Entry point into parser. */ 

92: void eval exp(int *value) 

93: { 

94: get_token(); 

995 if(!*token) { 


96: sntx_err(NO_ EXP); 

97: return; 

98: } 

99: if (*token==';’) { 

100: *value = 0; /* empty expression */ 

101: return; 
102: } 
103: eval exp0 (value) ; 

104:  putback(); /* return last token read to input stream */ 
105: } 


106: /* Process an assignment expression */ 
107: void eval _exp0(int *value) 


108: { 
109: char temp[ID LEN]; /* holds name of var receiving 
110s the assignment */ 


(continued on page 112) 
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helps save time, money, and cut frustrations. Compare, evaluate, and find products. 





“‘Kudos to 


Programmer’s Shop. 
Our customer feedback on 
your . . . service and tech- 
support has been full of praise. 
Congratulations!”’ 


Lawrence Norman 


Sales Manager 
Digitalk 


Al-Expert Systems 





Exsys Professional 795 695 
Logic Gem by Sterling Castle 198 179 
249 219 

1095 = =979 

95 79 

150 »§=115 

100 75 

150 99 

150 =115 

Visible Computer 80286 100 89 


BASIC & Addons 





dB/Lib 139 125 
MS QuickBASIC V4.5 99 69 
QBase 149 129 
QuickPak Professional 149 129 
Softcode 80 70 
om M-Tale[er-(e(-Mem @xe)anle)i(-1 6) 

High C-286 - by MetaWare 595 559 
Instant C/16M 795 719 
Lattice C - 450 289 
Microsoft C 5.1 - w/CodeView 450 299 
Microsoft QuickC 99 69 

w/serial mouse 199 99 
Turbo C - by Borland 150 ~—s Call 


Dan Bricklin Demo II 195 179 
Interactive EasyFlow 150 119 
Instant Replay - Nostradamus 150 139 
Matrix Layout - flow chart 150 139 
MetaDesign by Meta Software 350 329 
Pro-C 495 459 
Show Partner F/X - demos 350 = 329 
Visable Analyst 595 = 585 


(ojo) = [eo] Sm | 


MS Cobol V3.0 900 
Realia COBOL 995 


@Veysnlanlelaliersitielarwmevelelelary 


C Asynch Manager - Blaise Le 135 
Comm Library by South Mountain 185 149 
Greenleaf Comm Library 229 169 


DataBase Mgmt. 


CLARION - complete envt. 695 499 
dbFast 99 89 
D the data language 395 359 
Magic PC - visual database 299 269 
Paradox V3.0 725 549 
R:BASE for DOS 725 539 


Clipper Summer ’87 695 469 
dBASE IV 795 Call 
dBMAN V 190 179 
FoxBASE + - V2.1 395 249 
QuickSilver Diamond 599 379 








617-740-2510 
Telex: 671-5348 
FAX: 749-2018 





QuickPascal by Microsoft 


QuickPascal is the first language from a major 
PC language vendor to have object-oriented 
programming (OOP) support. OOP’s 
structure provides the ability to encapsulate 


both data and code into a single ‘object,’ 
allowing for better modular design and more 
reliable applications. QuickPascal is source 
code compatible with Turbo Pascal 5.0, 


including BGI graphics. $69 


List Ours 
AdComm 99 129 119 
Artful Lib 150 139 
Clipper Toolbox 295 269 
CodeBASE 194 179 
dGE - business graphics 195 179 
dQuery 150 139 
FLIPPER Graphics Library 195 179 
Pro Clip 149 125 
SilverComm Library 150 139 
SilverPaint 100 89 
Tom Rettig’s Library 100 80 


New Discoveries 
MEWEL by Magma Software Systems 


A message-passing text-mode clone of 
Microsoft Windows (without pre-emptive 
multi-tasking). MEWEL supports all of the 
windowing features of Windows, to the point 
of having the same function and constant 
names. Code will port to Windows with 
almost no changes. The supported features 
include all types of Windows, list boxes, dialog 
boxes, scrollbars, push buttons, checkboxes, 
edit fields, and more. The mouse is also fully 
supported. $139 


Mention ‘“‘DD889”’ 


Editors Cont. 





List Ours 
SPF/PC - V2.0 245 185 
Vedit Plus 185 129 


adi (=wAXe (ele) ary 


FREE! 
Summer ’89 Catalog 
Over 1,000 Products. Revised expanded 
descriptions make product 


selection even easier. 
Mention ‘‘DD889”’ 


|B) oF: F-{- 9m Mole) [> 


Buzzwords Toolboxes 295 269 
CLEAR + for dBASE 200 169 
dAnalyst Plus 195 189 
Dbase Online - 6 pop-up refs. 99 89 
dBRIEF w/BRIEF 275 ~—s Call 
dBug - source debugger 195 179 
dBX - dBASE III to C 550 529 
dSalvage 100 89 
Genifer - code generator 395 259 
R&R Relational Reportwriter 149 129 
Scrimmage by IDL - screen/menu 149 119 
Sycero db - single user 495 449 
UI Programmer - Dev’s Version 2.0 595 479 


Debugqgers/Disassemblers 


Dis Doc 130 119 
Periscope Il & III - breakout switch Varies Call 
SoftProbe II TX - debug 395 359 
Sourcer 100 89 
| BY=\V7-) Co) o)anl-1 4] am Rexe) f) 
AsmFlow 100 89 
C Programmers Toolbox 80 69 
Clear Plus for C 150 139 
Codan 395 349 
Inside 125 119 
MKS Lex & Yacc 249 219 
MKS RCS 189 169 
Poly Doc-SU 199 179 
PC-Lint 139 109 
Plink 86 Plus - overlays 495 299 
PolyMake 149 139 
PVCS Corporate 395 369 
.RTLINK - by Pocket Soft 195 189 
BRIEF 195 Call 
Edix 195 159 
Epsilon - like EMACS 195 169 
KEDIT - like XEDIT. V/4 150 125 








Btrieve ISAM - V5.0 245 185 
Btrieve/N - multiuser 595 469 
Xtrieve + - by Novell 595 479 

c-tree by Faircom - source 395° 319 
d-tree - data dictionary 495 399 
r-tree - report generator 295 245 
c-tree - w/r-tree 650 519 

CBTREE - Source 159 141 

-CQL - full w/source 395 349 

dBC ISAM III — by Lattice 250 199 

db_FILE - network model Varies Call 

db_RETRIEVE - SQL Varies Call 

XQL-SQL by Btrieve 795 ~=649 

UserSoft/C 299 = 229 

WKS Library 195 189 

‘FORTRAN 

FOR_C - FORTRAN ’77 to C 750 679 

Lahey FORTRAN F77L 477 439 

Lahey Personal FORTRAN 95 89 

MS FORTRAN - CodeView 450 299 

Spindrift - DOS, windows 149 30 
General Addons 

C+O Class Library 195 179 

C Tools Plus - V5.0 129 109 

C Utilities - by South Mountain 185 149 

Greenleaf Functions 209 159 

Greenleaf SuperFunctions 265 209 

Turbo C Tools by Blaise 154 134 


eT e-)elalomaelerelary 


GraphiC 395 319 
Greenleaf Makeform-DOS 170 99 
GSS Dev’t Toolkit 595 519 
Halo ’88 - 140 + devices 325 245 
Hoops 3D Graphics 575 499 
MetaWINDOW 195 159 
MetaWINDOW/PLUS Z15 229 
PCX Programmer’s Toolkit 125 115 
Pizazz Plus 149 129 
Obj.-Oriented 

List Ours 
Actor 495 439 
C Talk 150 139 
C talk/views 450 429 
Smalltalk/V 100 85 
Zortech C+ + 150 129 


We carry over 2,000 different products. Call today for complete technical 
information and advice, our free catalog, literature, and solid value. 


-421-8006 
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MultiScope Debugger by Logitech 


The next generation debugger fo OS/2. Run- 
time and post-mortem debugging. Examine 
programs during execution and after a run- 
time exception. Presentation Manager or text 
mode interface. Supports multiple views of 
source data, graphics, threads, breakpoints, 
watch variables, registers and memory. 
Features dual monitors, child processing, and 
DLL’s. Supports C, Pascal, assembler, and 
Logitech Modula 2 for OS/2. $249 


List Ours 

DESQview 130 115 
MKS Toolkit - Unix shell 199 179 
MS Windows/286 99 75 
MS Windows/386 195 149 
Development Toolkit 500 379 
Omni View 80 69 


'@) i ay-) am m= lareler-le(=1> 


Modula-2 Dev. System - by Logitech 249 
RPG II complete 1400 
TopSpeed MODULA-2 Compiler 100 


Other Products 






Carbon Copy Plus 195 159 
CO/SESSION 249 219 
Duplicator Toolkit 80 75 
FM-Plus 100 89 
Link & Locate + + - ROM MSC 395 359 
Math Advantage 495 459 
Norton Utilities Advanced 150 109 
PC Anywhere III 145 129 
PC Tools Deluxe 80 75 
PC Kwik Power Pack 130 119 
QEMM-386 60 a 
Remote2 195 139 
Resident C by South Mountain 99 85 

w/source 198 159 
SpinRite 59 55 
VTerm220 245 219 

Turbo Pascal 
graphics-Menu 149 139 
Say What 50 50 
Topaz 79 69 
TPZC 249 Vay a 
Turbo Analyst 99 89 
Turbo ASYNCH PLUS 129 99 
Turbo Pascal 5.0 by Borland 150 119 
Turbo POWER TOOLS PLUS 149 129 
Turbo Professional 125 109 
Turbo Programmer 549 449 


Text Screen Addons 


AEWindows 225 209 
C-scape 399 379 
C Windows Toolkit 100 95 
C Worthy w/forms 295 Call 
Curses - by Aspen Scientific 159 139 
Greenleaf DataWindows 295 229 
Hi-Screen XL 149 129 
Hyperinterface - TFN,C,PAS menus 100 89 
JAM by JYACC 595 469 
MEWEL 150 139 
POWERSCREEN by Blaise 129 99 
Vitamin C - source, menus 225 169 

VC Screen - painter 149 119 
Vermont Views - replaces WFD 395 Call 

Unix/Xenix 
DosMerge 286 (unlmtd) 249 229 
DosMerge 386 (unlmtd) 499 479 
Edix - editor Zio 239 
JAM JYACC Applic. Mar. many Call 
Microport System V/286 (Imtd) 649 599 
Microport System V/386 899 799 
SCO Xenix System V/286 1295 999 
SCO Xenix System V/386 1595 1299 


Note: Mention this ad. Some prices are 
specials. Ask about COD and POs. Formats 
3” laptop now available, plus 200 others. UPS 
surface shipping $4/per normal item. Prices 
subject to change without notice. 





HOURS: 
M-F 8:30 - 8:00 
Sat: 10:00 - 4:00 


Eastern Standard Time 






5-L Pond Park Road 
Hingham, MA 02043 








Xian Corporation 


WINPRO2 & WINPRO/PM 


C code generators for Microsoft 
Windows 2.x Software 
Development Kit and OS/2 
Presentation Manager Software 
Development Kit. 


For fast development of application prototypes: From a 
modified resource definition file, produces C language 
source code files, header files, module definition files, linker 
response file, and make file. Run the make file and you 
have an executable prototype. 


WINPRO2 for Microsoft Windows 2.0 SDK 


Xian Corporation also provides consulting 
services for the development of Windows and 
Presentation Manager applications. 


Xian Corporation 
625 N. Monroe St., Ridgewood, NJ 07450 
(201) 447-3270 -- Fax (201) 447-2547 
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What has always been missing in comparison 
tools is now available with DELTA: 


= Fully-scrollable windowed presentations of 
file or directory comparisons. 


= Awell-designed interface allows you 
to move smoothly from comparison of 
directories to comparison of individual files. 


= A built-in editor window allows you to 
change one of the compared files while 
viewing the comparison. 


Ideal for programmers! 


Requires an IBM compatible with at least 384K RAM. A hard 
disk is recommended. DELTA runs under DOS 2.0 or higher. 


Order now. $79. 


215 Berkeley PI. (D1 
etwor kK Brooklyn, NY 11217 
Voice: 718-638-2266 


TOOLS FOR POWER USERS ppc. 718-638:2239 
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C INTERPRETER 


Listing One (Listing continued, text begins on page 38.) 








111: register int temp tok; 

112: if (token_type==IDENTIFIER) { 

+i3% if(is_var(token)) { /* if a var, see if assignment */ 
114: strcpy(temp, token) ; 

113: temp tok = token_type; 

116: get_token(); 

li7: if (*token=='=’) { /* is an assignment */ 
118: get_token(); 

119: eval _exp0(value); /* get value to assign */ 
120: assign var(temp, *value); /* assign the value */ 
121: return; 

122: 

123: else { /* not an assignment */ 

124: putback(); /* restore original token */ 
125: strcpy (token, temp); 

126: token_type = temp tok; 

127: } 

128: } 

129: } 

130:  eval_expl (value) ; 

131: } 

132: /* This array is used by eval_expl(). Because 
133: some compilers cannot initialize an array within a 
134: function it is defined as a global variable. 
135: */ 

136: char relops[7] = { 

31% LT, LE, GT, GE, EQ, NE, 0 

138: }3 

139: /* Process relational operators. */ 

140: void eval_expl(int *value) 

141: { 

142: int partial value; 

143% register char op; 

144; eval exp2 (value) ; 

145: op = *token; 

146: if(strchr(relops, op)) { 

147: get_token(); 

148: eval exp2(&partial value); 

149: switch(op) { /* perform the relational operation */ 
150: case LT: 

154% *value = *value < partial value; 
152: break; 

153: case LE: 

154: *value = *value <= partial value; 
155% break; 

156: case GT: 

157 *value = *value > partial value; 
158: break; 

159: case GE: 

160: *value = *value >= partial value; 
161 break; 7 

162: case EQ: 

163: *value = *value == partial value; 
164: break; 

165: case NE: 

166: *value = *value != partial value; 
167: break; 

168: } 

169: } 

170: 

171: /* Add or subtract two terms. */ 

172: void eval _exp2(int *value) 

173: { 

174: register char op; 

175: int partial value; 

176: eval _exp3 (value) ; 

Wid & while((op = *token) == ‘+’ {|| op == '-') { 
178 get_token(); 

179 eval exp3(&partial value); 

180 switch(op) { /* add or subtract */ 

181: case '-': 

182: *value = *value - partial value; 
183: break; 

184: case ‘+t’; 

185: *value = *value + partial value; 

186 break; 

187 } 

188: } 

189: } 

190: /* Multiply or divide two factors. */ 

191: void eval exp3(int *value) 

192: { 

193: register char op; 

194; int partial value, t; 

195 eval exp4 (value) ; 

196 while((op = *token) == ’*’ !! op == ’/'’ !! op == '%"') { 
197 get_token(); 

198 eval exp4(&partial value); 

199 switch(op) { /* mul, div, or modulus */ 
200 case '*’; 

201 *value = *value * partial value; 

202 break; 

203 case '/'; 

204: *value = (*value) / partial value; 
205 break; 

206: case '%': 

207% t = (*value) / partial value; 

208: *value = *value-(t * partial value); 
209 break; 

210: } 

211 } 

212: } 

213: /* Is a unary + or -. */ 

214: void eval_exp4(int *value) 

Zeist { 

216: register char op; 

217 op = ’\0'; 

218: if (*token=='+' || *token==’-"') { 

219: op = *token; 

220: get token(); 

221% . 

222: eval_exp5 (value); 
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223: 
224: 
225: 
226: 
2213 
228: 
229: 
230: 
231: 
232% 
2335 
234: 
235% 
236: 


} 


if (op) 
if (op=='-') *value = -(*value); 


/* Process parenthesized expression. */ 
void eval _exp5(int *value) 


{ 


237: } 


238: 
239: 
240: 
241: 
242: 
243: 
244: 
245: 
246: 
247: 
248: 
249: 
250: 
2513 
252: 
253: 
254: 
255: 
256: 
257: 
258: 
259: 
260: 
261: 
262: 
263: 
264: 
265: 
266: 
267: 
268: 
269: 
270: 
271: 
272: 


/ 


if((*token == '(’)) { 
get_token(); 
eval exp0 (value); /* get subexpression */ 
if (*token != ')’) sntx_err (PAREN EXPECTED) ; 
get_token(); 

} 

else 
atom(value) ; 


* Find value of number, variable or function. */ 


void atom(int *value) 


{ 


273: } 


274: 
275: 
276: 
277: 
278: 
279: 
280: 
281: 
282: 
283: 
284: 
285: 
286: 
287: 
288: 
289: 
290: 
291: 
292: 
293: 
294: 
2953 
296: 
297: 
298: 
299: 
300: 
301: 
302: 
303: 
304: 
305: 
306: 
307: 
308: 
309: 
310: 
311 
3122 
313: 
314% 
3158 
316: 
317: 
318: 
319: 
320: 
3213 
322: 
a3. 
324: 
3253 
326: 
327: 
328: 
329; 
330: 
Spe ale 
Sees 
333: 


/ 


int i; 
switch(token_type) { 
case IDENTIFIER: 
i = internal_func (token); 
if(il= -1) {— /* call "standard library" function */ 
«value = (*intern_func[i].p) (); 
} 
else 


if (find func(token)){ /* call user-defined function */ 


call(); 
*value = ret_value; 
} 
else *value = find var(token); /* get var’s value */ 
get token(); 
return; 
case NUMBER: /* is numeric constant */ 
*value = atoi(token); 
get_token(); 
return; 
case DELIMITER: /* see if character constant */ 
if (*token=='\'"’) { 
*value = *prog; 
progtt; 
if (*prog!='\’’) sntx_err(QUOTE_EXPECTED) ; 
progtt; 
get_token(); 
} 
return; 
default: 
if (*token==')’) return; /* process empty expression =/ 
else sntx_err (SYNTAX); /* syntax error */ 
} 


* Display an error message. */ 


void sntx_err (int error) 


{ 


} 
/ 


char *p, *temp; 

int linecount = 0; 

register int i; 

static char *e[]= { 
"syntax error", 
"unbalanced parentheses", 
"no expression present", 
"equals sign expected", 
"not a variable", 
"parameter error", 
"semicolon expected", 
"unbalanced braces", 
"function undefined", 
"type specifier expected", 
"too many nested function calls", 
"return without call", 
"parentheses expected", 
"while expected", 
"closing quote expected", 
"not a string", 
"too many local variables" 


printf ("%s", e[error]); 
p = p_buf; 


while(p != prog) { /* find line number of error */ 
ptt; 
if(*p == ‘\r’) { 
linecount++; 


} 
} 
printf(" in line %d\n", linecount); 
temp = p; 
for (i=0; i<20 && p>p_buf && *p!='\n’; i++, p--); 
for (i=0; i<30 && p<=temp; i++, ptt) printf£("%c", *p); 
longjmp(e_buf, 1); /* return to save point */ 


* Get a token. */ 


get_token (void) 


{ 


register char *temp; 
token_type = 0; tok = 0; 
temp = token; 
xtemp = '\0'; 
/* skip over white space */ 
while (iswhite(*prog) && *prog) ++prog; 
if (*prog=='\r') { 
++prog; 
++prog; 
/* skip over white space */ 
while(iswhite(*prog) && *prog) t++prog; 


*token = ’\0'; 
if (*prog=='\0') {/* end of file */ 
tok = FINISHED; 
return (token_type=DELIMITER) ; 


} 
if(strchr("{}", *prog)) { /* block delimiters */ 


(continued on page 114) 
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Why Ke-invent The Wheel 


Looking for a powerful, feature packed text editor to be included into 
your application? Now available: 
TE Developer’s Kit 

TE Developer's Kit is the most cost effective way of incorporating text 
editing features into your application. The kit includes complete source 
code of the editor, library routines and the executable file. Written in 
Microsofts’ C®, the code follows modular approach to facilitate easy 
addition or subtraction of the features. 


The Features Include: 
* Complete full screen editor. 
* Support for multiple files/multiple windows. 
* A document mode incorporating word wrap and printing functions. 
* Support for file sizes greater than available memory: 
— Uses all available memory. 
— Transparent disk swap to a special swap file. 


* Reconfigurable keyboard commands and screen colors. 

* Keystroke macro record/play. 

* Multiple unlimited size buffers for text manipulation. 

* UNDO command. 

* Block oriented commands. (Columnar blocks for move/copy/delete!) 
* Replace with verify/print from within text editor. 

* Autosave. 

* Not copy protected for your convenience! 


The Kit is most favorably priced at $125.00 (list). 


*«* TEAM «+ 
The Programmer’s Text Editor 
TEAM incorporates all the text editing features of TE developer's kit listed 
above (w/o source). Additional features include regular expression search, 
delimiter matching, book marks, enhanced keyboard macros and a 
powerful high level macro language similar to ‘C’. The macro lanquage 
includes 33 ‘C’ operators, if/else, while, do, for and goto syntax, 
and follows ANSI ‘C’ conventions for the function calls. The language 
is so powerful that you may find yourself using it as a ‘C’ interpreter! 


TEAM offers you everything you need in a programmer's text editor. Why 
would you need anything else! 
(Introductory List Price $80.00) 


To Place An Order, Call 
Sub Systems ° 1-617-438-8901 


159 Main Street, *8C, Stoneham, MA 02180 
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68000 68020 
68010 68030 


FOR EMBEDDED SYSTEMS DESIGNS 


The most powerful C cross compiler targeting the 
Motorola 68000 microprocessor family. 


Available on the IBM PC/AT, Sun workstations and 
DEC VAX under Ultrix and VMS. 


Includes source level symbolic debugger. 
Generates System V COFF files. 
Generates ROMable and position independent code. 


© COMPLETE—AII the tools you need for cross-development. 


® VERSATILE—Solves your cross-development problems 
with features like automatic copying of selected data from 
ROM to RAM atstartup time, support for resident libraries, 
and control of up to 126 independently-positionable memory 
sections. 


e HIGHLY OPTIMIZING—Achieves industry leading 
performance through state of the art global optimization 
techniques. 


Ad snaps sae ac assembles, links and downloads 10 to 20 
times faster than other high-performance packages. 


























(415) 339-8200 
Ser 
6728 Evergreen Avenue ® Oakland, CA 94611 
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C INTERPRETER 


Listing One (Listing continued, text begins on page 38.) : temp++; 


334: *temp = *prog; 
: tempt+t+; 
*temp = ’\0'; 
progtt; 
return (token_type = BLOCK); 
} 
/* look for comments */ 
if (*prog=='/') 
if (* (prog+1)=='*’) { /* is a comment */ 
prog += 2; 
do { /* find end of comment */ 
while (*prog!='’*') progt+; 
progtt; 
} while (*prog!='/'); 
progtt; 
} 
if(strchr("!<>=", *prog)) { /* is or might be 
a relation operator */ 
Switch(*prog) { 
case '=': 1if(*(prog+l)=='’=') { 
progtt+; progt+t+; 
*temp = EQ; 
tempt+; *temp = EQ; temp+t+; 
*temp = ’\0'; 
} 


*temp = '\0'; 
break; 


} 


if(*token) return(token_type = DELIMITER) ; 


} 


if (strchr("+-**/%=; (),’", *prog)){ /* delimiter * 


*temp = *prog; 
prog++; /* advance to next position */ 
temp+t; 
*temp = ’\0'; 
return (token _type=DELIMITER) ; 

} 

if (*prog=='"’) { /* quoted string */ 
progt+t; 


while (*prog!='"'&& *prog!='\r’) *tempt+ = 


if (*prog=='\r’) sntx_err (SYNTAX) ; 
prog+t+; *temp = ’\0’; 
return (token_type=STRING) ; 

} 

if(isdigit (*prog)) { /* number */ 
while(!isdelim(*prog)) *temp++ = *progt+; 
*temp = ’\0'; 
return(token_type = NUMBER) ; 

} 

if(isalpha(*prog)) { /* var or command */ 
while(!isdelim(*prog)) *tempt++ = *progt+; 





break; : token type=TEMP; 
case '!': if (*(progtl)=='=') { >} 7 
progtt; progt+t; : *temp = '\0'; 
*temp = NE; : /* see if a string is a command or a variable */ 
cae ag emp = NE; tempt+t+; if(token_type==TEMP) { 
temp = ’\0'; tok = look_up(token); /* convert to internal rep */ 
} if(tok) token type = KEYWORD; /* is a keyword */ 
break; : else token type = IDENTIFIER; 
case ’<’: if (* (prog+l)==’=') { : } - 
progt+t; progtt; : return token type; 
*temp = LE; temp++; *temp = LE; : } 
} : /* Return a token to input stream. */ 
else { : void putback (void) 
progtt+; > { 
*temp = LT; : char *t; 
} : t = token; 
temp++; : for(; *t; t++) prog--; 
*temp = ’\0'; : } 
break; . : /* Look up a token’s internal representation in the 
case '>’: if (*(prog+l)=='’=') { : token table. 
progt+; progtt; : */ 
*temp = GE; tempt+; *temp = GE; : look up(char *s) 
ee 
else { : register int 1; 
prog; : char *p; 
; *temp = GT; : /* convert to lowercase */ 
: p= 9s; 


(continued on page 116) 


—©, PROGRAMMERS! 
THE TOOLS YOU NEED 
AT A PRICE YOU’LL LIKE 


Supports all index file operations. Very quick 
sequential or random access, duplicate keys, multiple 75.00 NOW 


indices, fixed and variable length data records are all supported. 
MULTI 


| Works on top of BTree to provide a simple, yet -USER 
powerful application program/file system interface. 40.00 AVAILABLE _ | 
Complex filesystem manipulation becomes a snap. Provides the power 2 ] 
of a database manager with the flexibility of a programming language. 60.00 
| 
| 
| 


Finally, a completely device independent printer library! 
Ip drives any printer as accurately as possible and allows easy access to 75.00 
its most sophisticated features. Multiple fonts, multi-column output, complex margin 
formatting, and much more. Pays for itself the first time it’s used. 


The ultimate ‘make’ utility. We couldn’t find a good one, so 
we wrote a great one. Has all kinds of powerful features including wild 59.00 
card filename expansion, nested macros, and multiple dependency and rules defini- 
tions. Ready to go for MS-DOS; C source is there if you use another operating 
system. 


Combine & Save: Btree + ISAM + Ip 159.00+ snake 199.00 


Each product includes a typeset manual, example programs, and complete C source 1343 Stanbury Drive 
code that runs on any operating system. Softfocus products may be incorporated into Oakville, Ontario, Canada 
applications royalty-free. io) A fs) 


Credit card orders accepted. Visa, M/C, Amex. Dealer inquiries invited. (416) 825-0903 
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Programming with 
Turbo C 


S. Scott Zimmerman and 
Beverly B. Zimmerman 





672 pages, $24.95 
ISBN 0-673-38092-0 


Written for programmers new to C, this 
thorough guide and resource demonstrates 
how to write elegant, efficient C programs 
with Borland’s Turbo C compiler. After a 
thorough introduction to the C language, this 
book explains step-by-step how to use the 
Turbo C editor, compiler and linker. Pro- 
gramming with Turbo C also provides 
exercises with each chapter and a wealth of 
technical information. 

Features: 


¢ A function-key template overlay that 
provides quick reference for important 
Turbo C function-key commands 

¢ Numerous useful and interesting 
programming examples including methods 
of creating graphics, animation, music and 
sound, and database management 

¢ Explanations and examples of advanced 
applications, including BIOS and DOS 
interrupts, interfacing C with assembly 
language, engineering software and 
managing memory 


To Order call: 
1-800-ALL-BOOK 


SCOTT, FORESMAN 


mm “C... WE'RE TALK 


Advanced 
Quick C 


Ken Knecht 





526 pages, $21.95 
ISBN 0-673-38396-2 


If you’re familiar with the fundamentals of C, 


you're ready to explore advanced program- 
ming techniques with Microsoft’s Quick C 
compiler and Advanced Quick C. 


The philosophy behind this book is simple 
and proven: the best way to learn to write 
efficient code is though hands-on experience. 
Advanced Quick C provides numerous 
sample programs covering useful applications 
such as menus, data entry screens, sorts, 
binary trees, hash table, and more. You'll see 
how good code works and how it can be 
modified and incorporated into your existing 
code. Explicit instructions on using 
Microsoft’s Quick C compiler are also 
included. 


Advanced Quick C demonstrates these 
useful programming techniques and 
applications: 


* Merging 

¢ Using windows 

¢ Creating a database 

¢ Indexing 

¢ Using sequential and random access files 

¢ Using and sorting arrays, structures, and 
files 

* Creating graphics, and much more 


You'll find many subprograms that can be 
added to your existing code. An appendix 
lists all functions used and indicates in which 
program each function appears. 


Complete Turbo C 


Strawberry Software 
Edited by Bonnie Derman 


» Strawherry 
Edited by Bon 


348 pages, $21.95 
ISBN 0-673-38103-X 


Complete Turbo C is an easy-to-follow 
guide to the C language and Borland’s Turbo 
C compiler that will enable even beginners to 
write efficient programs — fast. 


Complete Turbo C starts you in the right 
direction by encouraging you to think like a 
programmer. You'll learn structured 
techniques and sound programming practices, 
along with strategies for avoiding pitfalls. 
This comprehensive tutorial and reference 
starts with elementary concepts and goes on to 
cover these important topics: 


¢ Working with Version 2 and Turbo 
Debugger 

¢ Installing and using the Turbo C compiler 
and editor 

¢ Employing constants and variables - the 
difference between them and when to use 
each 

¢ Creating identifiers - how to name your 
own variables and functions 

* Creating and using data types such as 
arrays, strings structures and unions 

¢ Saving time and effort by building your 
own library of functions 

¢ Controlling the CRT 

¢ And much more 


With a wealth of charts tables and sample 
programs, Complete Turbo C provides 

you with the knowledge and skills you'll need 
to make Turbo C work efficiently 

for you. 





Call the Scott, Foresman and Company Professional Books Group, 
(312) 729-3000 for Information and a FREE Catalog. 
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Quick C Complete 


Strawberry Software 
Edited by Bonnie Derman 
and Michael St. Hippolyte 


O]tilel ae 
Sener 


Strawberry Software 
edited by Bonnie Derman 
and Michael St. Hippolyte 





224 pages, $22.95 
ISBN 0-673-38102-1 


Quick C Complete is a thorough, easy-to- 
learn guide and reference to programming in 
C with Microsoft's Quick C Compiler. Based 
on Quick C Version 2.0, this book provides 
excellent coverage of: 


¢ The C language 

¢ Structured programming techniques 

* Simple and advanced data types, pointers, 
operators, expressions and functions, 
modules and strings 

¢ Features of the Quick C Compiler 


Suitable for beginner to intermediate 
programmers, Quick C Complete illustrates 
topics with useful sample programs. 


Available wherever computer books are 
sold or mail orders to: 


Scott, Foresman and Company 
Professional Books Group 


1900 East Lake Avenue 
Glenview, Illinois 60025 


Please include complete shipping 
information. Check, money order, 
Mastercard or Visa accepted. 











C INTERPRETER 


Listing One (Listing continued, text begins on page 38.) 


440: while(*p){ *p = tolower(*p); ptt; } 
441: /* see if token is in table */ 
442: for(i=0; *table[i].command; i++) 


443: if (!stremp(table[i].command, s)) return table[i] .tok; 
444; return 0; /* unknown command */ 

445: } 

446: /* Return index of internal library function or -1 if 
447: not found. 

448; */ 

449: internal func(char *s) 

450: { 

451: int i; 

452: for(i=0; intern_func[i].f name[0]; i++) { 

453: if(!strcmp(intern_ func[i].f name, s)) return i; 
454: } 

455: return -1; 

456: } 


457: /* Return true if c is a delimiter. */ 
458: isdelim(char c) 


459: { 

460: if (strchr(" !;,+-<>’/*%*=()", c) (i c==9 II 
461: c=='\r' |! c==0) return 1; 

462: return 0; 

463: 


464: /* Return 1 if c is space or tab. */ 
465: iswhite(char c) 


466: { 

467: if(c=='’ ' |; c=="'\t’) return 1; 
468: else return 0; 

469: } 

End Listing One 

Listing Two 

1:/* A Little C interpreter. */ 

2: 

3: #include "stdio.h" 

4: #include "setjmp.h" 

5: #include "math.h" 

6: #include "ctype.h" 

7: #include "stdlib.h" 

8: #include "string.h" 

32 

10: #define NUM_FUNC 100 

11: #define NUM_GLOBAL VARS 100 

12: #define NUM LOCAL VARS 200 

13: #define NUM BLOCK 100 

14: #define ID_LEN 31 

15: #define FUNC_CALLS 31 

16: #define NUM PARAMS 31 

17: #define PROG SIZE 10000 

18: #define LOOP _NEST 31 

19: 

20: enum tok_types {DELIMITER, IDENTIFIER, NUMBER, KEYWORD, 
ane TEMP, STRING, BLOCK}; 


22: /* add additional C keyword tokens here */ 

23: enum tokens {ARG, CHAR, INT, IF, ELSE, FOR, DO, WHILE, 
24: SWITCH, RETURN, EOL, FINISHED, END}; 

25: /* add additional double operators here (such as ->) */ 
26: enum double ops {LT=1, LE, GT, GE, EQ, NE}; 

27: /* These are the constants used to call sntx_err() when 


28: a syntax error occurs. Add more if you like. 

29: NOTE: SYNTAX is a generic error message used when 
30: nothing else seems appropriate. 

Sis *y 

32: enum error msg 

33: {SYNTAX, UNBAL PARENS, NO_EXP, EQUALS EXPECTED, 
34: NOT_VAR, PARAM ERR, SEMI EXPECTED, 

35. UNBAL BRACES, FUNC_UNDEF, TYPE EXPECTED, 

36: NEST FUNC, RET NOCALL, PAREN EXPECTED, 

37: WHILE EXPECTED, QUOTE EXPECTED, NOT TEMP, 

38: TOO MANY LVARS}; . = 


39: char *prog; /* current location in source code */ 
40: char *p buf; /* points to start of program buffer */ 
41: jmp buf e buf; /* hold environment for longjmp() */ 


42: 

43; /* An array of these structures will hold the info 
44: associated with global variables. 

45: */ 


46: struct var type { 

47: char var _name[(ID_ LEN]; 

48: int var type; 

49: int value; 

50: } global_vars[NUM_GLOBAL VARS]; 

51: struct var_type local_var_stack[{NUM_LOCAL VARS]; 
52: struct func_type { 

53: char func_name[ID_ LEN]; 

54: char *loc; /* location of entry point in file */ 
55: } func_table(NUM_FUNC]; 

56: int call _stack{NUM FUNC]; 

57: struct commands { /* keyword lookup table */ 

58: char command[20]; 

59: char tok; 

60: } table[] = { /* Commands must be entered lowercase */ 


61: "if", IF, /* in this table. */ 
62: "else", ELSE, 

63% "for", FOR, 

64: "do", DO, 

65: "while", WHILE, 


66: “char", CHAR, 
67: "int", ENT, 


68: "return", RETURN, 

69: "end", END, 

70: "" END /* mark end of table */ 
BE ae 


72: char token[80]; 

73: char token_type, tok; 

74: int functos; /* index to top of function call stack */ 
75: int func_index; /* index into function table */ 
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: int gvar index; /* index into global variable table */ 
: int lvartos; /* index into local variable stack */ 

: int ret_value; /* function return value */ 

: void print (void), prescan (void) ; 

: void decl_global(void), call(void), putback (void) ; 

: void decl local(void), local_push(struct var_type i); 

: void eval _exp(int *value), sntx_err(int error); 

: void exec_if(void), find_eob(void), exec_for(void); 

: void get_params(void), get_args (void); 

: void exec_while(void), func_push(int i), exec_do(void); 
: void assign_var(char *var_name, int value); 

: int load_program(char *p, char *fname), find _var(char *s); 
: void interp block(void), func_ret (void); 

: int func_pop(void), is_var(char *s), get_token(void) ; 

: char *find func(char *name) ; 


: main(int argc, char *argv([]) 


if(argc!=2) { 

printf ("usage: c <filename>\n") ; 

exit (1); 
} 
/* allocate memory for the program */ 
if((p_buf=(char *) malloc(PROG SIZE))==NULL) { 

printf ("allocation failure") ; 

exit (1); 
} 
/* load the program to execute */ 
if(!load_program(p buf, argv[1])) exit(1); 
if(setjmp(e_buf)) exit(1); /* initialize long jump buffer */ 
/* set program pointer to start of program buffer */ 
prog = p buf; 
prescan(); /* find the location of all functions 

and global variables in the program */ 
gvar_ index = 0; /* initialize global variable index */ 
lvartos = 0; /* initialize local variable stack index */ 
functos = 0; /* initialize the CALL stack index */ 
/* setup call to main() */ 
prog = find func("main"); /* find program starting point */ 
prog--; /* back up to opening ( */ 
strcpy(token, "main"); 
call(); /* call main() to start interpreting */ 
} 


: /* Interpret a single statement or block of code. When 


interp block() returns from it’s initial call, the final 
brace (or a return) in main() has been encountered. 


: *f 
: void interp_ block (void) 


{ 
int value; 
char block = 0; 
do { 
token_type = get_token(); 
/* If interpreting single statement, return on 
first semicolon. 
af | 
/* see what kind of token is up */ 
if (token_type==IDENTIFIER) { 
/* Not a keyword, so process expression. */ 
putback(); /* restore token to input stream for 
further processing by eval _exp() */ 
eval exp(&value); /* process the expression */ 
if (*token!=';’) sntx_err(SEMI_ EXPECTED) ; 


} 
else if (token_type==BLOCK) { /* if block delimiter */ 
if (*token=='{’) /* is a block */ 
block = 1; /* interpreting block, not statement */ 
else return; /* is a }, so return */ 


else /* is keyword */ 
switch(tok) { 
case CHAR: 
case INT: /* declare local variables */ 
putback (); 
decl_local(); 
break; 
case RETURN: /* return from function call */ 
func_ret(); 
return; 
case IF: /* process an if statement */ 
exec_if(); 
break; 
case ELSE: /* process an else statement */ 
find_eob(); /* find end of else block 
and continue execution */ 
break; 
case WHILE: /* process a while loop */ 
exec_while(); 
break; 
case DO: /* process a do-while loop */ 
exec_do(); 
break; 
case FOR: exec for(); 
break; 
case END: 
exit (0); 


} 
} while (tok != FINISHED && block); 


: /* Load a program. */ 
: load_program(char *p, char *fname) 


FILE *fp; 

int i=0; 

if ((fp=fopen(fname, "rb"))==NULL) return 0; 
i= 0; 

do { 


(continued on page 118) 
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FlashTools! provides support 
for work sheet style data entry. 


FlashTools! is available for dBASE, Foxbase+, Clipper, 
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Listing Two (Listing continued, text begins on page 38.) 
183: 
184: 
185: 
186: 
187: 
188: 
189; 
190: 
191: 
192: 
193: 
194: 
195: 
196: 
197: 
198: 


: #/ 
: char *find_func(char *name) 


Het 


*p = getc(fp); 
ptt; itt; 
} while(!feof(fp) && i<PROG SIZE); 
*(p-2) = ’\0’; /* null terminate the program */ 
fclose (fp); 
return 1; 
} 
/* Find the location of all functions in the program 
and store global variables. */ 
void prescan (void) 
{ 
char *p; 
char temp[32]; 
int brace = 0; /* When 0, this var tells us that 
current source position is outside 
of any function. */ 
Pp = prog; 
func_index = 0; 
do { 
while(brace) { 
get_token(); 
if (*token=='{'’) bracet+; 
if (*token=='}’) brace--; 
} 
get_token(); 
if (tok==CHAR || tok== 
putback (); 
decl_global(); 


/* bypass code inside functions */ 


INT) { /* is global var */ 


} 
else if(token_type==IDENTIFIER) { 
strcpy (temp, token) ; 
get_token(); 
if (*token==' (’) { /* must be assume a function */ 
func_table[func_index].loc = prog; 
strcpy(func_table[func_index].func_name, temp); 
func_index++; 7 
while (*prog!=')’) progt++; 
progtt; 
/* prog points to opening curly brace of function */ 


else putback(); 
} 
else if (*token==’ {’) brace++; 
} while (tok!=FINISHED) ; 
prog.= p; 


: /* Return the entry point of the specified function. 


Return NULL if not found. 


register int i; 
for(i=0; i<func_index; i++) 
if ('strcmp (name, func_table[i] .func_name) ) 
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GraphLink is the Printer Graphics Library that does 
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( 





INTERPRETER 


Sane 
: /* Declare a local variable. */ 
: void decl_local (void) 

: { 


=) 
: /* Call a function. */ 
: void call (void) 

oe 


>} 
: /* Push the arguments to a function onto the local 


return func_table[i].loc; 
return NULL; 


>} 

: /* Declare a global variable. */ 
: void decl_ global (void) 

7 { 


get_token(); /* get type */ 
global _vars[gvar_index].var_type = tok; 
global _vars[gvar_index].value = 0; /* init to 0 */ 
do { /* process comma-separated list */ 
get token(); /* get name */ 
strcpy (global _vars[gvar_index].var_name, token) ; 
get_token(); 
gvar_index++; 
} while (*token== 
if (*token!=';’) 


ee 


sntx_err (SEMI EXPECTED) ; 


struct var type i; 

get_token(); /* get type */ 

i.var_ type = tok; 

i.value = 0; /* init to 0 */ 

do { /* process comma-separated list */ 
get_token(); /* get var name */ 
strcpy(i.var_name, token); 
local _push(i); 
get_token(); 

} while (*token==’,’); 

if (*token!=';") sntx err (SEMI_EXPECTED) ; 


char *loc, *temp; 

int lvartemp; 

loc = find_func(token) ; 

if (loc==NULL) 
sntx_err(FUNC_UNDEF) ; 

else { 
lvartemp = 
get_args(); 


/* find entry point of function */ 
/* function not defined */ 


lvartos; /* save local var stack index */ 
/* get function arguments */ 

temp = prog; /* save return location */ 

func_push(lvartemp); /* save local var stack index */ 

prog = loc; /* reset prog to start of function */ 

get_params(); /* load the function’s parameters with 

the values of the arguments */ 

interp block(); /* interpret the function */ 

prog = temp; /* reset the program pointer */ 

lvartos = func_pop(); /* reset the local var stack */ 


} 


variable stack. */ 


: void get_args (void) 
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293: { 349: if (lvartos>NUM LOCAL VARS) 


294: int value, count, temp[NUM PARAMS]; 350: sntx_err (TOO MANY LVARS) ; 
295: struct var type i; 351:  local_var_stack[lvartos] = i; 
296: count = 0; 352: lvartost+t; 
297: get_token(); 353: } 
298: if (*token!=’ (’) sntx_err (PAREN EXPECTED) ; 354: /* Pop index into local variable stack. */ 
299: /* process a comma-separated list of values */ 355: func_pop (void) 
300: do { 356: { 
301: eval _ exp (évalue) ; 357: functos--; 
Suz? temp[count] = value; /* save temporarily */ 358% if (functos<0) sntx_err(RET _NOCALL) ; 
303: get_token(); 359: return(call_stack[functos]); 
304: countt+; 360: } 
305: }while(*token==’,’); 361: /* Push index of local variable stack. */ 
306: count--; 362: void func_push(int i) 
307: /* now, push on local var_stack in reverse order */ 363: { 
308:  for(; count>=0; count--) { 364: if (functos>NUM FUNC) 
309: i.value = temp[count]; 365: sntx_err (NEST FUNC) ; 
310: i.var type = ARG; 366: call _stack[functos] = i; 
311: local push(i); 367:  functost++; 
312: } 7 368: } 
313: } 369: /* Assign a value to a variable. */ 
314: /* Get function parameters. */ 370: void assign_var(char *var_name, int value) 
315: void get params (void) Sie | 
316: { 7 372: register int i; 
319% struct var type *p; 373: /* first, see if it’s a local variable */ 
318: int i; = 374: for(i=lvartos-1l; i>=call_stack[functos-1]; i--) { 
319: i = lvartos-1; 315% if(!strcemp(local var _stack[i].var_name, var name)) { 
320: do { /* process comma-separated list of parameters */ 376: local _var_stack[i].value = value; 
321: get token(); 377: return; 
322: p = &local var stack[i]; 378: } 
323: if (*token!=’)’) { 379; J} 
324: if (tok!=INT && tok!=CHAR) sntx_err(TYPE EXPECTED) ; 380: if (i < call_stack[functos-1]) 
325: p->var type = token_type; ~ ~ 381: /* if not local, try global var table yf 
326: get _token(); 7 382: for (i=0; i<NUM_GLOBAL_VARS; i++) 
327: /* Tink parameter name with argument already on 383: if (!strcmp(global_vars[i].var_name, var_name)) { 
328: local var stack */ 384: global _vars[i].value = value; 
329: strcpy(p->var_name, token); return; 
soe ‘aie ae ' sntx_err(NOT_VAR); /* variable not found */ 
oe ee break: 389: /* Find the value of a variable. */ 
334: } while (*token==',’); 390: int find_var(char *s) 
335: if (*token!=’)’) sntx err (PAREN EXPECTED) ; 391: { a 
oie . - te iF ee Cais it’s a local variable */ 
. * ; * . ’ 
ate ges a / 394:  for(i=lvartos-1; i>=call_stack[functos-1]; i==) 
339: { - 395: if (!strcmp(local_var_stack[1].var_name, token) ) 
340: int value; 396: return local_var_stack[i].value; 
341: value = 0; 397: /* otherwise, try global vars ef 
342: /* get return value, if any * / 398: for (i=0; i<NUM_GLOBAL_VARS; it+t+) 
343: eval exp(&value) ; 399: if (!strcmp(global_vars[i].var_name, s) ) 
344: ret value = value; 400: return global_vars[1i] .value; 
345: } = 7 sntx_err(NOT_VAR); /* variable not found */ 


346: /* Push local variable */ 
347: void local_push(struct var_type 1) 


348: { 
With C-SQL, you can play the whole field. We REPORT EMBEDDED SOL INTERACTIVE 
provide support for different databases you work WRITER APPLICATIONS SQL 


with everyday and unify them for consistent 
access. C-SQL insures that you can keep your old 
applications running while developing new appli- 
cations using our SQL/API. This allows you to 
move to SQL in small steps, or giant leaps. 
C-SQL is a compact, flexible full featured 


sesepsd aid ene peta coo nt a ~~ DATABASE GATEWAYS FILE GATEWAYS OTHER GATEWAYS 
TM T™ f: EWA 
a eisai [Lenten 
spreadsheets and documents. You get a single 
command SQL access, for example, to dBASE and Oracle files anywhere 
in your network. Plus you get features similar to I]BMs® DB2™, high level 
interfaces through industry standard SQL/API, full transactions and 
journaling, and a powerful relational report writer. 

So, if you need to get on base, call for more information and let C-SQL 


go to bat for you. (718) 997-0699 


C-SQL The Information Integrator COROMANDEL 


Oracle, dBASE, IBM, DB2, Btrieve, and c-tree are trademarks of their respective owners. 108-27 64th Road Forest Hills, NY 11375 


(continued on page 120) 
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C INTERPRETER 





Listing Two (Listing continued, text begins on page 38.) 455: /*Execute a do loop. */ 
456: void exec_do(void) 
403: /* Determine if an identifier is a variable. Return 457: { 
404: 1 if variable is found; 0 otherwise. 458: int cond; 
405: */ 459: char *temp; 
406: int is _var(char *s) 460: putback (); 
407: { 461: temp = prog; /* save location of top of do loop */ 
408: register int i; 462:  get_token(); /* get start of loop */ 
409: /* first, see if it’s a local variable */ 463:  interp block(); /* interpret loop */ 
410: for(i=lvartos-1; i>=call_stack[functos-1]; i--) 464:  get_token(); 
411: if (!strcmp(local_var_stack[i].var_name, token) ) 465: if (tok!=WHILE) sntx_err (WHILE EXPECTED) ; 
412: return 1; 466: eval _exp(&cond); /* check the loop condition */ 
413: /* otherwise, try global vars */ 467: if(cond) prog = temp; /* if true loop; otherwise, 
414:  for(i=0; i<NUM_GLOBAL VARS; itt) 468: continue on */ 
415: if(!strcmp(global vars[i].var_name, s)) 469: } 
416: return 1; 470: /* Find the end of a block. */ 
417: return 0; 471: void find_eob(void) 
418: } 472: { 
419: /* Execute an IF statement. */ 473: int brace; 
420: void exec_if (void) 474: get_token(); 
421: { 475; brace = 1; 
422: int cond; 476: do { 
423: eval _exp(&cond); /* get left expression */ 477: get_token(); 
424: if(cond) { /* is true so process target of IF */ 478: if (*token=='{') bracet+; 
425: interp block(); 479; else if (*token==’}’) brace--; 
426:  } 7 480: } while (brace); 
427: else { /* otherwise skip around IF block and 481: } 
428: process the ELSE, if present */ 482: /* Execute a while loop. */ 
429; find eob(); /* find start of next line */ 483: void exec_for(void) 
430: get_token(); 484: { 
. 431: 1f(tok!=ELSE) { 485: int cond; 
432: putback(); /* restore token if 486: char *temp, *temp2; 
433: no ELSE is present */ 487: int brace ; 
434: return; 488; get_token(); 
435: } 489: eval exp(&cond); /*initialization expression */ 
436: interp block(); 490: if (*token!=';’) sntx_err (SEMI EXPECTED) ; 
437: } ~ 491; progtt+; /* get past the ; */ 
438: } £92: temp = prog; 
439; /* Execute a while loop. */ 493: for(;;) { 
440: void exec while(void) 494: eval exp(&cond); /* check the condition */ 
441: { 7 495; if (*token!=';’) sntx_err(SEMI_EXPECTED) ; 
442: int cond; 496: progt+; /* get past the ; */ 
443: char *temp; 497: temp2 = prog; 
444: — putback(); 498: /* find the start of the for block */ 
445: temp = prog; /* save location of top of while loop */ 499: brace = 1; 
446: get token(); 500: while(brace) { 
447: eval_exp(&cond); /* check the conditional expression */ 501: get_token(); 
448:  if(cond) interp block(); /* if true, interpret */ 502: if (*token==' (’) brace++; 
449: else { /* otherwise, skip around loop */ 503: if (*token==')’) brace--; 
450: find eob(); 904: } 
451: return; 505: if(cond) interp block(); /* if true, interpret */ 
452: } 506: else { /* otherwise, skip around loop */ 
453: prog = temp; /* loop back to top */ 507: find_eob(); 
454: } 508: return; 
509: } 
510: prog = temp2; 
511% eval _exp(&cond); /* do the increment */ 
512: prog = temp; /* loop back to top */ 
5135 } 
514: } 
INTERWORK™ 
A Concurrent Programming Toolkit 
; : . nd Listin 
Interwork is a “C” program library which allows you to write . eee 
your programs as a set of cooperating concurrent tasks. Very 
useful for simulation, real-time applications, and experimenta- 
tion with parallel programming. Listing Three 
FEATURES 1; /****** Internal Library Functions *******/ 
: Zs 
Supports a very large number of tasks (typically more than ti ROR nee BE Sauk Gus. Hess. 8 
100) limited only by available memory. Low overhead per 4: 
task results in very fast context switching. 5: #include "conio.h" /* if your compiler does not 
Provides a full set of inter-task communication (ITC) oe 
facilities, including shared memory, locks, semaphores, 8: #include "stdio.h" 
blocking queues, and UNIX"™-style signals. Also has building 9: #include "stdlib.h" 
blocks for constructing your own ITC facilities. 10: | arr 
: . : ; 11: extern char *prog; /* points to current location in program */ 
Handles interrupts (DOS version) and integrates them into 12: extern char token[80]; /* holds string representation of token */ 
task scheduling. Supply your own interrupt handlers or 13: extern char token_type; /* contains type of token */ 
block tasks on interrupts 14: extern char tok; /* holds the internal representation of token */ 
are ; : F LO? 
Lets you trace task switches and inter-task communication. 16: enum tok_types {DELIMITER, IDENTIFIER, NUMBER, COMMAND, STRING, 
Comes with complete documentation including a user's ee QUOTE, VARIABLE, BLOCK, FUNCTION}; 
manual and reference manual of commands 18: /* These are the constants used to call sntx_err() when 
; ; : : 19; a syntax error occurs. Add more if you like. 
Interwork is available for the following systems: 20: NOTE: SYNTAX is a generic error message used when 
; 21: nothing else seems appropriate. 
Hardware Operating System 22: */ 
. 23: enum error msg 
IBM PC, XT, AT PC DOS 2.0 oF later 24: {SYNTAX, UNBAL PARENS, NO EXP, EQUALS EXPECTED, 
IBM PC AT XENIX 25: NOT VAR, PARAM ERR, SEMI_EXPECTED, 
DEC VAX™ SUN UNIX 4.2BSD 26: UNBAL BRACES, FUNC_UNDEF, TYPE EXPECTED, 
—— ; 27: NEST FUNC, RET_NOCALL, PAREN EXPECTED, 
PC-DOS version is compatible with DeSmet, Lattice, and a ab ea coger QUOTE EXPECTED, NOT_STRING, 
Microsoft C compilers. | S04 tne ger dehen (oid); 
Please specify hardware and operating system when order- eats eos aa eval_exp(int *result); 
j j j i : . - VOl putback (vol , 
ing. Shipping and handling included; COD orders add $2.50. 33: /* Get a character from console. (Use getchar()) if 
Send check or money order to: 34: your compiler does not support getche().) */ 
35: call_getche{) 
Ax Block Island Technologies Se ae ae 
Innovative Computer Software 38: ch = getche(); 
: fi 39: while (*prog!=')’) prog++; 
13563 NW Cornell Road, Suite 230, Portland, Oregon 97229-5892 (ie erage. 78 duane ¢o-c14) 26 Sama-e) 
(503) 690-7181 41: return ch; 


Trademarks: Interwork, Block Island Technologies; UNIX, AT&T Bell Laboratories, Inc.; XENIX, 
Microsoft, Inc.; VAX, Digital Equipment Corporation 
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42: } 
43; /* Put a character to the display. (Use putchar() 
44 if your compiler does not support putch().) */ 
45: call_putch() 
46: { 
47 int value; 
48 eval _exp(&value) ; 
49 putch (value) ; 
50 return value; 
51: } 
52: /* Call puts(). */ 
53: call_puts (void) 
54: { 
55:  get_token(); 
56: if (*token!=’ (’) sntx_err(PAREN EXPECTED) ; 
57: get_token(); 7 
58:  if(token_type!=QUOTE) sntx err (QUOTE EXPECTED) ; 
59: puts (token) ; 
60:  get_token(); 
61: if (*token!=’)’) sntx_err (PAREN EXPECTED) ; 
62: get_token(); 
63: if(*token!=’;’) sntx_err(SEMI_EXPECTED) ; 
64: putback (); 
05s return 0; 
66: } 
67: /* A built-in console output function. */ 
68: int print (void) 
69: 
70: int i; 
71: get_token(); 
72: if(*token!=’(’) sntx_err (PAREN EXPECTED) ; 
13% get_token(); 
74: if (token _type==QUOTE) { /* output a string */ 
15% printf("ts ", token); 
76: } 
77: else { /* output a number */ 
78: putback (); 
79: eval _exp(éi); 
80: printf ("%d.",. i)? 
81: } 
82: get_token(); 
83: if (*token!=’)’) sntx_err (PAREN EXPECTED) ; 
84:  get_token(); 
85: if (*token!=’;’) sntx_err(SEMI_ EXPECTED) ; 
86: putback () ; 
87: return 0; 
88: } 
89: /* Read an integer from the keyboard. */ 
90: getnum(void) 
91: 
92: char s[80]; 
93: gets(s); 
94; while(*prog!=’)’) progtt+; 
95:  progt+; /* advance to end of line */ 
96: return atoi(s); 
97: } 
End Listing Three 
Listing Four 
1: /* C Interpreter Demonstration Program 
Ze This program demonstrates all features 
35 of C that are recognized by this C interpreter. 
4: */ 
5: int i, jz  /* global vars */ 
6: char ch; 
ff 
8: main() 
3: 
10 int i, j; /* local vars */ 
11: puts("C Demo Program.") ; 
12:  print_alpha(); 
13: do { 
14; puts("enter a number (0 to quit): "); 
15% i = getnum(); 
16: ifii < 0-) { 
17: puts("numbers must be positive, try again"); 
18: 
19: else { 
20: for(j = 0; j < i; j=jtl) { 
21: print (j); 
22: print ("summed is"); 
23% print (sum(3j)); 
24: puts(""); 
25: } 
26: } 
27 } while (i!=0); 
ze: } 
29: /* Sum the values between 0 and num. */ 
30: sum(int num) 
31s { 
32 int running_sum; 
33 running sum = 0; 
34 while(num) { 
35 running_sum = running sum + num; 
36 num = num - 1; 
37 } 
38 return running_sum; 
39: } 
40: /* Print the alphabet. */ 
41: print_alpha() 
42: { 
43: for(ch = ‘A’; ch<='Z'; ch = ch +1) { 
44 putch (ch) ; 
45: 
46: puts(""); 
mee (continued on page 122) 
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SCREEN MANAGER 


For C, BASIC, FORTRAN, COBOL Programmers 


The Screen Generator ™ 


The Screen Generator offers professional screen 
management for creation of Window, Help, Menu, 
and Data Entry Screens for over 20 compilers. You 
create screens using SG's Screen Painter. All Screen 
Display and Data Entry functions are controlled from 
within your program. SG's function calls provide all 
the flexibility and speed you'll ever need for screen 
display and block mode or field level data entry. The 
Screen Generator includes: The Screen Painter/ 
Print Utility, The Screen Manager, and 100 page 
User Guide. 
So give us a Call! You'll be up and running in no 


time, while our 60-day Money Back Guarantee 
eliminates all the risk! 


The Screen Generator ™ — New Version 


C, BASIC, ASM & Turbo Pascal $99. 
FORTRAN or COBOL add $29. 
Linkable Screen Mgr. (optional) $69. 
Demo Disk Available VISA/MC 


The West Chester Group 
P.O. Box 1304, West Chester, PA 19380 
(215) 644-4206 
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".an amazingly complete collection of 
window commands." "The support 
functions are easy to use and very 
powerful. This library warrants serious 


consideration. Computer Language 


e 100% Assembly Window Functions 
e Extremely Compact Linkable Library 
e Amazing Speed and Incredible Menues 
e Keyboard Filtering for Data Entry Systems 
e Context Sensitive Help Editor 
e Screen Manager Professional - $140 


Logical Alternatives Incorporated 


Calder Square, P.O. Box 10674 
State College, PA 16805-0674 
(814) 234-8088 
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PC-lint te #1 Lint for MS-DOS 














void 
main() . 
struct({unsigned 
a:2, b:3, c:4;)}s; 
unsigned row,col;char 
ch;int x;char y;unsigned 






You have 
just inherited 
this C program. 






















z;void printt ( ) 
; /*® a lie but 
yore What do you do? 
aot e3 
zero*/row (a) Run away 
ics 
80; . 
he ies ie (b) Run PC-lint 
-1)x++;ch= 
'\xFF'; if ( 
(unsigned) 
ao, 
y=(z & Use PC-lint to examine 
pad PP foreign looking C code 
y)x++; and report on potential 
Z =12; P ,. . 
problems and difficulties. 
ittz/ PC-lint’s many options 






-1)x++;s.b 
=10;if( s.b 
>5) x++;zZ = 


let you quickly and easily 
suppress unwanted error 







37; if (-z<0) messages and extract just 
gril eer the information you need. 
x 343 







PC-lint is a C source code analysis tool. It will 
check code more thoroughly than a C compiler and, 
because it looks across multiple modules, it enjoys a 
perspective that your compiler doesn’t have. 







Control your development time and cost. Locate 
source code errors that could otherwise go unde- 
tected for days, months or even years. 






Over 200 error messages. More than 70 options 
for complete customization. Suppress error mes- 
sages, locally or globally, by symbol name, by message 
number, both, etc. Easy to Use - If you know C you 
already know how to use PC-lint. Check for 
portability problems. Alter size of scalars. Adjust 
format of error messages. Automatically generate 
ANSI prototypes for your K&R functions. 















Gimpel Software 
3207 Hogarth Lane Collegeville PA 19426 
(215)584-4261 
Only $139 - CALL TODAY 
30 Day Money-back Guarantee 











Specify MS-DOS or OS/2. Quantity and educational discounts 
available. PA add 6% sales tax -- Outside USA add $20. 
PC-lint and FlexeLint are trademarks of Gimpel Software. 
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C INTERPRETER 


Listing Four (Listing continued, text begins on page 38.) 


: /* Nested loop example. */ 
: Main () 
2 { 


int i, j, k; 
for(i = 0; i< 5; i= 
for(j = 0; 3 < 33 j 
for(k = 3; k ; 
print (i); 
print (j); 
print (k); 
puts (ue) ; 
} 
} 


} 
puts ("done") ; 


: /* Assigments as operations. */ 
: main() 


: { 


int a, b; 
a=b= 10; 
print(a); print (b); 
while(a=a-1l) { 

print (a); 

do { 

print (b); 

}while((b=b-1) > -10); 

} 


: 


: /* This program demonstrates recursive functions. 
: main() 


{ 
print (factr(7) * 2); 
} 


: /* return the factorial of i */ 
: factr(int i) 


if(i<2) { 
return 1; 
} 
else { 
return i * factr(i-1); 


} 


ae 


: /* A more rigorous example of function arguments. 
: main() 


{ 
£2(10, £1(10, 20), 99); 


: } 
: fl(int a, int b) 
{ 


int count; 


print ("in f1"); 
count = a; 
do { 


print (count) ; 
} while (count=count-1) ; 
print(a); print (b); 
print (a*b); 
return a*b; 


: 
: f2(int a, int x, int y) 
> { 


print(a); print (x); 
print(x / a); 
print (y*x); 


: /* The loop statements. */ 
: main () 
> { 


int a; 
char ch; 
/* the while */ 
puts("Enter a number: "); 
a = getnum(); 
while(a) { 

print (a) ; 

print (a*a); 

puts(""); 

a=a- 1; 


} 
/* the do-while */ 
puts("enter characters, ‘q’ to quit"); 
do { 
ch = getche(); 
} while(ch!='q’); 
/* the for */ 
for(a=0; a<l0; a=a+41) { 
print (a); 
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*/ 


*} 


End Listings 
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C DEBUGGER $89.95 


Zortech’s Debugger is the most 
sophisticated source level debugger now 
available. Because it is fully compatible 
with Codeview you can use it to debug 
Zortech or Microsoft programs. 


Single step through source in one 
window while watching the variables 
(inc. automatics) change value in 
another window. You can even alter 
variables dynamically while the program 
executes. 








The most advanced C compiler 





money can buy. No junk — just 
pure performance. 

Magazines are too 

embarrassed to 

print our optimized 
benchmark results -— —~ 
they don't want to upset 
the big guys! 


The 600 page manual comes with a great 
introductory section and lots of solid tech- 
nical data and examples. Fully compatible 


C++ COMPILER 
$149.95 


This is the world’s only true C+ + compiler 
for MS-DOS machines — there is no choice. 
Not to be confused with ‘translators’ which 
are slow, expensive, inefficient and not 
real C++ compilers. 


More people use Zortech’s C+ + than any 
other C++ on any operating system. 
Zortech strives to ensure full compatibility 
with AT&T C++. 


Zortech C++ contains all the features of 


Much better than Codeview, and full of 
advanced features like dual monitor, EMS 
memory and Mouse support. Call for data 
sheet. 


Zortech C including the C compiler itself 

at no extra cost. Everything is in one neat 
package. Compatible with Codeview and 
the new Zortech Debugger. C+ + Library 
Source only $149.95 — Call for data sheet. 


with Codeview and the new Zortech 

C Debugger. You get over 400 functions 
and the Flash Graphics package with 
drivers for Hercules, CGA, EGA and VGA 
—the fastest graphics library available! 





Context Sensitive Help, an advanced “ 
C VIDEO $299.95 editor/environment, make, touch, five Avs PR 
, memory models, linker & librarian. Library Personal ri > 
aaleeioite ee ae our C Source only $89.95 — Call for data sheet oe UM | Rexiss 
n you learn is in , 
economics. You will save yourself or your ee 1988 1988 WINNER R 
Wi NNE R 


company hundreds of dollars in seminar 
tuition fees. 


C++ TOOLS $99.95 


Zortech’s toolkit of base C++ classes 
covering a wide range of common 
programming tasks such as bit vectors, 
singly and doubly linked lists, dynamic 
and virtual arrays, binary search tree, 
hash table, BCD maths, time/date/clock, 


You get ten one hour tapes containing 36 
lessons ranging from the beginners 
introduction through to more advanced 
features. 


Great for learning C! Any compiler and 


any operating system. Complete with 365 ~VITOU, Up 
ee = : manual. 


oage workbook (addi- | | directory lists, filenames, interrupt and 
tional copies available : BTREE- $79, 95 critical error handlers, string editing, text 
at $29.95) and free windows and editing. 


Zortech C compiler — 
Call for data sheet. 


The 450 page manual also acts as aC ++ 
tutorial which introduces the C 

orogrammer to the world of C+ +. Call for 
data sheet. 









TECHNICAL 
HOTLINES 


All our products are covered by 
an extensive FREE technical 
Support hotline which is open 





Wey 










C Primer (Sams) — $23.95 


Advanced C Primer (Sams) — $23.95 







five days a week from 9.00 till C++ (Stroustrup) — $29.95 
5.00 (EST) Oops & C++ (Wiener) — $27.95 
USA HOTLINE 

617-646 6703 

Fax: 617-648-9340 ORDER 
OUTSIDE USA HOTLINE 


1-800-848-8408 
VISA/MC/COD 


Prices do not include shipping 


44-423-501552 (England) 
Fax: 44-423-530746 (England) 





COMMS 


l 





Zortech, Inc., 1165 Massachi NL ERATIine 5703. Fax: (617)-643-7969. 
Outside USA: Zortech Ltd., 106-108 Powis Street henaen SE18 6LU, England. (44)- 1)-316 7777. Fax: (44-1)-316 4138. 
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MULTIDIMENSIONAL ARRAYS 


Listing One (Text begins on page 50.) Listing Three 


#include <stdio.h> /* det.c - find determinant of a two-dimensional array of doubles */ 
#include <malloc.h> 

#include <stdio.h> 
char **dim2(row, col, size) /* creates 2D array */ #include <malloc.h> 
int row, col; 
unsigned size; 


{ 


main () 

{ 

int i; double det (); 
spin al aa static double f[4] [4] 


i] 
me 


pdata = (char *) calloc(row * col, size); “i z 1. %¥ 
if (pdata == (char *) NULL) { 2 1.2. 3. 
fprintf(stderr, "No heap space for data\n"); ae ce 
exit (1); \; pay ee 
tat ‘ 
prow = (char **) malloc(row * sizeof (char *)); pears ig he i 
if (prow == (char -**) NULL) { rene ee ies 
fprintf(stderr, "No heap space for row pointers\n"); 2 1.2.3. 5. 
. > , U / / ’ 
exit (1); i 24 4, 1, 4, 
8,5, ay 1). 3 
for (i = 0; i < row; i++) { Ni 
prow[i] = pdata; /* store pointers to rows */ " ™ " 
ok ; printf ("determinant of f = %g\n", det(f, 4)); 
pdata += size * col; /* move to next row */ printf ("determinant of g = %g\n", det(g, 5)); 
return prow; /* pointer to 2D array */ 
} double det (arg, n) /* calculate determinant for n by n matrix */ 
void free2 (pa) /* frees 2D heap storage */ ae 


char **pa; 
{ { 


register int i, j, k; 


free (*pa) ; /* free the data */ i? 
: ., double **a; /* this is the array name */ 
; free (pa) ; /* free pointer to row pointers */ char **sdim2(); 
double ret; /* determinant */ 
double x; /* temp */ 


/* dynamically create 2 dimensional "array" a from arg */ 
a = (double **) sdim2(arg, n, n, sizeof (double)); 


/* determinant algorithm using rows and columns */ 
for (k = 0; k <n - 1; k++) 
for’ (i =k + 1; i < nz itt) { 
End Listing One x = a[i] [k]/a(k] (kl; 
for (j = k; j < nj jtt) 
afi](j] = afi][j] - x * afk) [jl]; 


Listing Two for (ret = 1, i = 0; i < nj it#) 
ret *= a[i] [i]; 
#include <stdio.h> 


Sneiude.cma ioe he free (a); /* free heap storage */ 
char ***dim3(grid, row, col, size) /* creates 3D array */ return ret; 
Int .grid}.-row,' col? } 
unsigned size; : 
{ char **sdim2(pdata, row, col, size) /* "creates" 2D array */ 
int i; char *pdata; 
char ***pgrid, **prow, *pdata; ARE LOW: col; 
unsigned size; 
pdata = (char *) calloc(grid * row * col, size); { . in 
if (pdata == (char *) NULL) { any ee saieets 
fprintf(stderr, "No heap space for data\n"); register char **prow; 
exit (1); 
} (1) prow = (char **) malloc(row * sizeof (char *)); 
prow = (char **) malloc(grid * row * sizeof (char *)); a. (prow == (char et NOLL} °{ 
if (prow == (char **) NULL) { fprintf(stderr, No heap space for row pointers\n"); 
fprintf(stderr, "No heap space for row pointers\n") ; exit (1); 
exit (1); 
} ; 
pgrid = (char ***) malloc(grid * sizeof (char **)); for (1 = 0; i < row; i++) { 
if (pgrid == (char ***) NULL) { prow[i] = pdata; /* store pointers to rows */ 
fprintf(stderr, "No heap space for grid pointers\n"); Pdata += size * col; /* move to next row */ 
exit (1); 
} (1) return prow; /* pointer to 2D array */ 


for (i = 0; i < grid * row; itt) { 
prow[i] = pdata; /* store pointers to rows */ 
pdata += col * size; /* move to next row */ 


} 


for (i = 0; i < grid; i++) { 


pgrid[i] = prow; /* store pointers to grid */ 
prow += row; /* move to next grid */ 
} 
return pgrid; /* pointer to 3D array */ 
} 
void free3(pa) /* frees 3D heap storage */ 


char ***pa; 


{ 


free (**pa) ; /* free the data */ 
free (*pa) ; /* free the row pointers */ 
free (pa) ; /* free the grid pointers */ 


} 


End Listing Two 


End Listings 
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DYNAMIC MEMORY 


Listing One (Text begins on page 62.) 


: xmem.c -- Extended Dynamic Memory Control Module. 
ack an a uence ce af 5 


° /* KKK KKK KKK KKK KKK KKEKEK INCLUDE FILES KKKKKK KKK KKKKKKKEKKKKK x / 
: #include <stdio.h> 


A /* KKKKKEKKKKKKKKKKKKKEK EXTERNAL FUNCTIONS KKEKKKKEKKKKKKKKKKKKK * / 
: extern char *malloc(unsigned int); 

: extern char *calloc(unsigned int, unsigned int); 

: extern void free(char *); 


1 

2 

3 

: 

5 

6 

7 

8 

9 
10 
11 
12: /* KKKKKKKKEKKKKEKKKKKKEKE GLOBAL FUNCTIONS KKAEKKKKKKKKKKKKKKEKKK x/ 
13: char *x_malloc(unsigned int); 
14: char *x_calloc(unsigned int, unsigned int); 
15: void x_free(char *); 
16: void x chkfree(); 
17 - 
18 
19 
20 


: /* KKEKKKKKKKKEKKKKKKKKKKK GLOBAL VARIABLES KKEKKKKKKKKKKKKKKKKKK x / 


: /* memtrace usage: 


= 0 => simple calls to malloc & free 
21 = 1 => tracking of all allocations using hash table 
22: = 2 => checking for changes to previously freed blocks 
20: = 
24: int memtrace = 1; /* memory tracing control variable */ 
25: long tot memory = OL; /* total amount of allocated memory */ 
26: long tot alloc = OL; /* total # of allocations */ 
27: int hashsize = 47; /* size of hash table */ 
28: int bucketsize = 10; /* number of entries per hash bucket */ 


30: /* KKEKKKKKKKKKKKKKKKKKKK LOCAL VARIABLES KKEKKKKKKKKKKKKKEKKKKKK * / 
31: /* memory allocation tracking table */ 


33: /* amount of extra allocation for overhead */ 
34: #define OVHDSIZE 2 


36: /* fill character for overhead gap */ 
37: #define FILLCHAR '\377’ 


39: /* allocated entry information */ 
40: typedef struct alloc_entry { 


41: int size; /* size of allocated area */ 

42: char *ptr; /* pointer to allocated area */ 

43: char *freed; /* pointer to copy of allocated area */ 
44: } ALLOCATION; 

45: 

46: typedef struct bucket { 

47: struct bucket *next; /* pointer to next bucket when filled */ 
48: int entries; /* number of used entries */ 

49: ALLOCATION *alloc; /* allocated entry array */ 

50: } BUCKET; 

JL: 

52: #define NUL BUCKET ( (BUCKET *)0) 

53% 


54: /* dynamic pointer hash table */ 
55: static BUCKET **ptrhash = (BUCKET **)0; 


56: 
57; /* ssssssssssssssssasssssssssssssessasssasssssssssssssssseseeesa= 
263 Store pointer in hash table 
59: °*/ 
60: static char *sto ptr(p, b) 
61: char *p; /* pointer to be stored */ 
62: unsigned b; /* size of area */ 
63: { 
64: register BUCKET *bp, *bq; /* bucket pointers */ 
65: register int bno; /* bucket/entry number */ 
66: 
67: if ( ! ptrhash ) { 
68: /* allocate pointer hash table */ 
69: ptrhash = (BUCKET **)calloc(hashsize, sizeof (BUCKET *)); 
70% if ( ! ptrhash ) 
ee return (NULL) ; 
723 tot_memory = hashsize * sizeof (BUCKET *); 
yf } 
74: /* compute hash table index */ 
Ts bno = (int) ((unsigned long)p % hashsize); 
76: 
77: /* find first bucket with available entries */ 
78: for (bq = bp = ptrhash[bno]; bp && bp->entries == bucketsize; 
719: bp = bp->next) 
80: bq = bp; 
81: 
82: /* allocate new bucket if necessary */ 
83: if ( bp == NUL BUCKET ) { 
84: if ( ! (bp = (BUCKET *)malloc(sizeof (BUCKET))) ) 
85: return (NULL) ; 
86: bp->next = NUL BUCKET; 
87: bp->entries = 0; 
88: if ( bq ) 
89: /* connect to end of bucket chain */ 
90: bq->next = bp; 
91: else 
92: /* initial bucket for this hash entry */ 
93: ptrhash[bno] = bp; 
94: 
95: /* allocate bucket’s allocation entry array */ 
96: bp->alloc = (ALLOCATION *)calloc(bucketsize, 
97: sizeof (ALLOCATION) ) ; 
98: 
99: /* memory total includes space used by hash table */ 
100: tot memory += sizeof (BUCKET) + 
101: 7 bucket size*sizeof (ALLOCATION) ; 
102: } 
103: /* store pointer to allocated block */ 
104: bno = bp->entries+t+; 
105: bp->alloc[bno].ptr = p; 
106: bp->alloc[bno].freed = NULL; 


(continued on page 120) 
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Software & Systems 


Professionals 
Choose Your Challenge 


TRW’s Defense Systems Group offers a wide variety 
of challenges to choose from. We design software and 
build systems for tactical applications, groundbased 
lasers, surveillance and control, and aerospace sup- 
port, as well as defense information, survivability 
and security. If you’re looking for a distinctive 
challenge, match your skills to these opportunities. 
And contact us today. 


The following positions are available at our Redon- 
do Beach, California facility— unless otherwise 
indicated. 

Software Designer/ Developer - DD1 

System Analysis Engineers - DD2 

Software System Engineers - DD3 

Ada Application Software Developers - DD4 
C Application Software Developers - DD5 
Software Prototype Engineers - DD6 
Software Integration and Test Engineers - DD7 


Senior Project Engineer - DD7 
Leavenworth, Kansas 

Systems Engineering Manager - DD9 
White Sands, New Mexico 


For the above positions, send 2 copies of your 
resume, typing the appropriate code on the 
top right hand corner of each resume, to: 
Dante D. Vasquez, TRW SEDD, DH2/2670, 
One Space Park, Redondo Beach, CA 90278. 


The following positions are available at Sunnyvale 
and Redondo Beach, California, and Denver, Col- 
orado facilities. When submitting your resume, 
please indicate the location you prefer. 

System Engineers 

Software Developers 

Neural Network Engineers 

Microprocessor Software Developers 
Guidance Software Engineers 

Radar Software Engineers/ Developers 
Software Engineers 

Algorithm Specialists 

SDI System Engineers 

Staff Engineers 

For the above positions, send your resume to: 
Gene Goodban, TRW SDD, R2/1194, Dept. 


DD, One Space Park, Redondo Beach, CA 
90278. 


TRW offers a comprehensive employee compensa- 
tion package that includes medical/dental/vision 
care coverage, liberal stock/savings programs, and 
more. TRW is an equal opportunity employer. U.S. 
citizenship required for most positions. 
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7 es. a ae 
LEARN C 


IN ONE WEEK! 
aa! eae 


Expert C Instruction: 
Thousands of students have been trained and have 
given us consistently excellent reviews. 


Introductory and Advanced: 


3-day introduction covers C 


in its entirety. Focus on 


writing réadable and maintainable programs. Many 
practice exercises. 2-day advanced class focuses on 
working with common programming problems. 


Public and Onsite Classes: 


Public classes given monthly in Collingswood, NJ. 


Convenient to Philadelphia. 


Reasonably priced local 


accommodations. Classes can be scheduled at your 


company site. 


Unconditional Guarantee: 


All classes are guaranteed. 


If you are not satisfied, 


course fees will be refunded with no red-tape. 


Call for Information: 


Computer Language Arts, Inc. 
704 Haddon Avenue, Collingswood, NJ 08108 


(800) 842-9667 
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Introducing C talk /Views'™ 


Reduce 
C Programming 


for MS Windows 
by 75% 





Introducing C_talk/Views™, a major 
productivity tool for Microsoft® Windows 
program development in C. Slash your MS 
Windows program development time by up 
to 75% through the powerfull object-oriented 
programming (OOP) technology of C_talk. 
With C_talk/Views, the most common 
elements of all MS Windows programs are 
packaged into reusable software 
components-object classes. Over forty 
software components are included as a 
complete applications development 
framework. These object classes provide an 


PRre 
‘tat Rel? 


easy-to-learn and powerfully consistent 
interface to the rich functionality of MS 
Windows. C_talk/Views is also a real OOP 
environment. Use the software 
components as they are, or extend them to 
meet the most demanding applications. 


Coming soon...C_talk/Views for the 
Apple Macintosh®... now your MS Windows 
program will port to the Mac with little or no 
change! 


$450." 


CNS, Inc. 

Software Products 

7090 Shady Oak Rd. 
Minneapolis, MN 55344 
612-944-0170, Fax 612-944-0923 


In the US, add $5 for shipping. 
($25 for Int'l handling) 


... providing and advancing 
object-oriented methodology. 
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DYNAMIC MEMORY 


Listing One (Listing continued, text begins on page 62.) 


107: 
108: 
109: 
110: 
TLL 
112: 
113: 
114: 
115: 
116: 
117: 
118: 
119: 
120: 
ZL: 
122: 
123: 
124: 
125% 
126: 
127: 
128: 
129: 
130: 
131: 
132: 
133: 
134: 
135: 
136: 
137: 
138: 
139: 
140: 
141: 
142: 
143: 
144: 
145: 
146: 
147: 
148: 
149: 
150: 
151: 
152: 
1533 
154: 
155: 
156: 
L57s 
158: 
159: 
160: 
161: 
162: 
163: 
164: 
165: 
166: 
167: 
168: 
169: 
170: 
171: 
12 
173: 
174: 
i ole 
176: 
177: 
178: 
179: 
180: 
181: 
182: 
183: 
184: 











*/ 


bp->alloc[bno].size = b; 


/* update total allocation */ 
tot_memory += b; 


/* increment total number of allocations */ 
+t+tot_alloc; 


return (p) ; 


Delete pointer from hash table 


static void del ptr(p) 


char *p; 


{ 


¢ */ 
: char *x malloc( b ) 
: unsigned int b; 


> { 


/* pointer to be freed */ 


/* index into overhead space */ 
/* bucket pointers */ 
/* bucket/entry number */ 


int gap; 
register BUCKET *bp, 
register int bno, i; 


*bq; 


/* compute hash table index */ 
bno = (int) ((unsigned long)p % hashsize); 


/* search bucket(s) for pointer */ 
for (bq = NUL BUCKET, bp = ptrhash[bno]; bp; bp = bp->next) { 
for (i= 0; i < bp->entries; ++i) { 
if ( bp->alloc[i].ptr == p) { 
/* check integrity of gap */ 
for (gap=bp->alloc[i].size-OVHDSIZE; 
gap<bp->alloc[i].size; ++gap ) { 


if ( p[gap] != FILLCHAR ) { 
printf ("WARNING overwrite, addr: %lx\n", 
(long) p); 
break; 
} 
} 
if ( memtrace == 1) { 
/* remove entry from bucket */ 
if ( --bp->entries == 0 ) { 
/* free this bucket */ 
az ( bq’) 
bq->next = bp->next; 
else 


ptrhash{bno] = bp->next; 
free((char *)bp->alloc); 
free((char *)bp); 
tot_memory -= (sizeof (BUCKET) + 
bucketsize*sizeof (ALLOCATION) ) ; 
} 
else if ( i < bp->entries ) { 
/* move last entry into current spot */ 
bp->alloc[i] = bp->alloc[bp->entries]; 
} 
free (p); 
} 
else { 
/* memtrace == 2 
=> save copy to check for bad mods */ 
if ( bp->alloc[{i].freed ) 
printf("WARNING freeing free ptr, addr: %1x\n", 
(long) p); 


else if (bp->alloc[i].freed = malloc (bp->alloc[i].size)) 


memcpy (bp->alloc[i].freed, bp->alloc[i].ptr, 
bp->alloc[i].size); 


} 
/* update total allocated memory count */ 
tot_memory -= bp->alloc[i].size; 


/* normal return */ 
return; 
} 
} 
bq = bp; 


if ( ! bp ) 


printf ("WARNING freeing bad pointer, addr: %lx\n", (long)p); 


Allocate b bytes of memory 


/* number of bytes to allocate */ 
register char *mptr; 


if ( memtrace ) { 
/* add gap space */ 
b += OVHDSIZE; 


/* allocate memory */ 
if ( mptr = malloc(b) ) { 
/* £i11 gap */ 
memset (mptr+b-OVHDSIZE, FILLCHAR, OVHDSIZE) ; 


/* store mptr in ptrhash */ 
mptr = sto ptr(mptr, b); 
} 
} 
else 
mptr = malloc(b); 


return (mptr) ; 
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Allocate and clear i*s bytes of memory } 
216: */ 267: /* free unfreed block */ 


217: char *x_calloc( i, s ) 268: printf ("WARNING freeing unfreed block, addr: %1x\n", 
218: unsigned int i; /* number of blocks to be allocated */ 269: (long) ap->ptr); 

219: unsigned int s; /* size (in bytes) of each block */ 270: free (ap->ptr) ; 

220: { Zi: } 

Z2i' register unsigned int amt; Zt2: bq = bp->next; 

222: register char *mptr; 273: 

223: 274: /* free bucket */ 

224: /* allocate requested space */ 275: free((char *)bp->alloc); 

229: if ( mptr = x_malloc(amt = i*s) ) { 276: free((char *)bp); 

226: /* clear requested space */ 27175 } 

227% memset (mptr, ’\0’, amt); 278: } 

228: } 279: /* free pointer hash pointer array */ 
Z20% return (mptr); 280: free((char *)ptrhash) ; 


281: ptrhash = (BUCKET **)0; 


BUSSES SSeS SERRE SSeS SSeS Ess Sees SESS S SRS SSeS SSS SSS Sess : tot memory = OL; 
233: Free allocated memory 284: } ~ 
234: */ 285: } 
235: void x_free( p ) 
236: char *p; /* pointer to block to be freed */ 














237: { 

238: if ( p == NULL ) 

239: printf ("WARNING freed a null pointer\n"); 
240: else if ( memtrace ) 

241; del_ptr(p); 

242: else 


free((char *)p); 


Check to ensure all blocks have been freed 













248; */ 
249: void x_chkfree() 
250: { 
251: ALLOCATION *ap; /* allocation entry pointer */ End Listing 
252: register int bno, i; /* bucket/entry number */ 

register BUCKET *bp, *bq; /* bucket pointers */ 










if ( memtrace ) { 
256: /* check for unfreed variables */ 














291: for ( bno = 0; bno < hashsize; ++bno ) { 

258: for ( bp = ptrhash[bno]; bp; bp = bq ) { 

259: for (i = 0; i < bp->entries; ++i) { 

260: ap = &bp->alloc[i]; 

261: if ( memtrace == 2 && ap->freed ) { 

262: /* check for changes to freed blocks */ 

263: if ( memcmp(ap->ptr, ap->freed, ap->size) ) 

264: printf ("WARNING block chgd after free, addr: %1\n", 


(long) ap->ptr) ; 


ANEL 
lusll/ 


Screen Generator and Screen 
Management Library for ‘C’ under DOS, 
or RMX 


A selection of user comments and reviews: 

















“PANEL Plus II seems very solid and easy to use. 
The code-generation versatility was much 
appreciated.” - Tim Parker, Computer Language. 






“I was most impressed with the improvements in the 
product, making it perfectly suited to the 
development of applications such as ours, using 
advanced user interface concepts without sacrificing 
portability. The ease of conversion from PANEL Plus 
version 1 was also terrific. - Business software 
developer, Sydney, Australia. 


“PANEL Plus does seem to be the most effective 
library.” - Pat Moran, .EXE Magazine. 


















































PANEL Plus II features: Interactive screen design 
editor * C code generator * pop-up fields/windows * 
multiple-line fields * horizontal/vertical scrolling 
regions * scroll bar/mouse support * help boxes * 
custom validation * pull-down menus * complete 
library source included * no royalties * support for 
popular graphics libraries * Dyna-link for OS/2. 
PANEL Plus II is available now: the DOS or OS/2 
version lists for $495. Please call for full version 
and price details. 


“The library tutorial does a superb job of 
orientation.” — Independent software consultant, UK. 


“You should charge more for PANEL Plus II - we 
estimate that it will save us £20,000 in development 
costs over the next year.” — Data Processing 
Manager, UK. 


“I love all the new features in PANEL Plus II - they 
have so much potential!” - Independent software 
consultant, Washington, USA. 





























: Roundhill Computer Systems Limited | 
| POB 14, Marlborough, Wiltshire SN8 1LG, England e Fax: +44 672 54436 © Telephone: +44 672 54675 @ BIX: join roundhill F_ 
: 1964 Richton Drive, Wheaton IL 60187, USA @ Fax: (312) 665 9841 © Telephone: (312) 690 3737 ' 
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The Pastest 
Fortran 77/386 


Compiler 


Proven Compilers Get Solid Results! 


Compiles 13,000 lpm on a 386 
Runs under MS-DOS with DOS extenders 
Optional checkout mode with run-time diagnostics 
Full window-based source level debugger 
Dynamically allows linking to libraries 
during program’s execution 
e Contains a full 32-bit in-line symbolic 

assembler with window-based debugger 
e Addresses up to 4 Gigabytes of memory 



















Our compilers 
run faster, do more, 
cost less and increase 
system and people 
productivity! 







SYSTEMS, INC. 


Distributed by OTG Systems, Inc. 






Suite 300, Rts. 106 & 374, P.O. Box 239, Clifford, PA 18413-0239 
(717) 222-9100 
FAX (717) 222-9103 


MS-DOS is a trademark of Microsoft Corporation. FTN77/386 is developed by the SALFORD SOFTWARE MARKETING 
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Troff Support for 
Laser Printers! 











GES 
BAR os 





IMA 


J 








EQUATIONS 








Eror ™ now supports the HP . a ae 
LaserJet, Imagen, Laserwriter, and eae 
all PostScripT® printers! bVbh dae 





2a 


GRAPHS/PLOTS 








OUT ams yalar-larersxe 
OMS 
inclusion of 
graphics directly 
TCO OL 
documents. 
Available on 
MS-DOS and 36 
different UNIX 
SVG 


CRT screen 
previewers for 
colUieLameole-\itiare! 
are now included 
with EROFF:" 





DIAGRAMS 


Uli me] e-] eaters ; 
previewers for 
SUN and 
X-Windows are 


also available. 





TABLES 
Percent by Weight 






6 52.7 











Elan Computer Group, Inc. 
888 Villa Street, 3rd Floor, Mt. View, CA 94041 USA 
Acie tenesegea Phone: 415.964.2200 Fax 415.964.8588 
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PROCEDURE TABLES 


Listing One (Text begins on page 68.) 


[IIR III RTO TOR TOR TOR TOR TOK TOK I TOR I IIR IRI I IK IKI KI IK II IK KKK IR IRI KKK IKKE 


Name ; prompter.c 


Description : A routine for prompting a user for a series of answers. 


FIC II III III III II TOTO ITOK RIK KIA IK KR A KK KK / 


#include<stdio.h> 
#include"prompter.h" 


struct group stack group _stack[GROUP_STACK SIZE]; 


prompter (pc) 


{ 


} 


struct prcontrol * pc; 
int errstat; 


pc->current question = 0; 
pc->group stack_ptr = 0; 


for(;;) { 
pe->errstat = 0; 


display current question (pc) ; 
gets (pc->response) ; 


if (*pc->response == 0) { 
continue; 


} 


if(!(pc->errstat = 
(*pc->current_group[pc->current_question] .validate) (pc))) { 


if(pc->errstat = 
(*pc->current_group[pc->current_ question] .doit) (pc) ) { 
if(pc->errstat == EXIT NOW) { 
return (0); 


} 
} 


if (pc->current_group[pc->current_question].response != NULL) { 
strcpy (pc->current_group[pc->current_question] .response, 
pc->response) ; 


} 
(*pc->current_group[pc->current_question].set) (pc); 


if (pc->current_group[pc->current_question].text == NULL) { 
return (0) ; 


} 


if (pc->errstat) { 
handle error (pc->errstat,pc->errormess) ; 


} 


display current_question (pc) 


{ 


} 


struct prcontrol * pc; 


printf ("\n%s\n",pc->current_group[pc->current_question] .text) ; 
PELAtE ("===>") 


handle error (errstat,errormess) 


I 


int errstat; 
struct errormess * errormess; 


int 1; 
int emess offset = -1; 
char * message,messagebuff [100]; 


for(i = 0 ; errormess[i].errstat != -1 ; ++i) { 
if (errormess[i].errstat == errstat) { 
emess offset = i; 
break; 


} 

} 

message = messagebuff; 

if(emess offset != -1) { 
strcpy (message, errormess[emess offset] .message) ; 
if (errormess[emess offset] .build) { 

(*errormess[emess offset] .build) (message) ; 

} 

} 

else{ 
sprintf (message, "Error %d.",errstat) ; 


puts("\n"); 
puts (message) ; 
return (0); 


[ROR II 


Flow control routines 


KKK KKK RR KKK RIKKI KK KKK KKK RR KKK KKK KK KK / 


no_op() 
{ 


} 


return (0); 


next_question (pc) 


{ 


struct prcontrol * pc; 


++pc->current_question; 
return (0) ; 


(continued on page 130) 
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: Biekowecee 


How will UNIX’System Vatiect 
your customer base? 


As we celebrate 20 years of development, the UNIX®* 
system has become recognized as the standard in operating 
systems around the world. UNIX System V is the taproot 
of an ever-growing customer list: one that includes every 
major vendor committed to open systems, and even some 
who are not. 

No matter what your computing needs are, UNIX 
System V will make your business blossom. This unique 
capacity of the UNIX system to satisfy a range of users has 
made it a catalyst of the open systems’ movement. 

Market acceptance of the UNIX system, which was 
first licensed by AT&T 15 years ago, has been overwhelming. 
As a result, AT&T created the UNIX Software Operation as a 
separate business unit to serve all users of UNIX System V- 
based products. 

It’s the latest milestone in the UNIX System V heritage 
of responding to the marketplace and customer needs. Key 
product enhancements are also evidence. Releases 3.0 and 3.1 


delivered networking and internationalization. Release 3.2 


UNIX is a registered trademark of AT&T. XENIX is a registered trademark of Microsoft Corp. 
Miracle-Gro is a registered trademark of Stern’s Miracle-Gro Products, Inc. ©1989 AT&T 


was built around these enhancements and included XENIX/ 
386 compatibility and security features. | 

The UNIX system’s inherent capacity for upward 
migration assures that ongoing technology of UNIX System V 
Release 4.0 will be available to all our customers—current 
and future. 

With every enhancement, the UNIX Software Opera- 
tion will continue to keep UNIX System V portable, compati- 
ble, interoperable, scalable, and standard compliant. All of 
which will be achieved only through accountability to each 
and every customer who needs the growth potential of an 
Open systems’ environment. 

To find out more about the UNIX Software Opera- 
tion and licensing source code for UNIX System V, call 
1 800 828-UNIX. 











The right choice. 


| 





pop_group (pc) 
struct prcontrol * pc; 
{ 


--pc->group stack ptr; 


PROCEDURE JABLES 


Listing One (Listing continued, text begins on page 68.) 


pc->current_group = group stack[pc->group_ stack ptr] .group; 
pc->current_question = group stack[pc->group stack ptr] .current_question; 


return (0); 


} 


push_current_group (pc) 
struct prcontrol * pc; 


{ 


group_stack[pc->group_stack_ptr].group = pc->current_group; 
group_stack[pc->group_stack_ptr].current_question = pc->current_question; 


++pc->group_ stack ptr; 
return (0); 


} 


start _group (newgroup, pc) 
struct question * newgroup; 
struct prcontrol * pc; 


push current group (pc); 
pce->current_group = newgroup; 
pc->current question = 0; 
return (0); 


} 


restart _group (pc) 
struct prcontrol * pc; 

{ 
pc->current question = 0; 
return (0); 


struct prcontrol { 
int current_question; 
struct question * current _group; 
int group_stack ptr; 
char response[121]; 
int errstat; 
struct errormess * errormess; 


}; 


struct question { 
char * text; 
char * response; 


int (*validate) (); 
int (*doit) (); 

int (*set) (); 

}; 


struct group stack { 
struct question * group; 
int current question; 
hi 


[ROTI IO IK 


errormess data structure 
ROR II KK I RR KK / 


struct errormess { 
int errstat; 
char * message; 


int (*build) (); 

}? 
#define GROUP_STACK SIZE 50 
#define NO ERROR 0 
#define EXIT NOW 2001 


end_group (pc) 
struct prcontrol * pc; 
{ 
pop_group (pc) ; 
++pc->current_question; 
return (0); 


} 


checkerror end group (pc) 
struct prcontrol * pc; 
{ 
if (pc->errstat) { 
return (0); 
} 
end_ group (pc); 
| return(0); 


} 


checkerror_next_question (pc) 
struct prcontrol * pc; 
{ 
if (pc->errstat) { 
return (0); 


} 
next_question (pc); 
return (0); 


} 
End Listing One 
e e 
Listing Two 
[RRR RR Ik kk 


Name : prompter.h 


Description : Declarations for prompter 
FORO IK / 


Hardware Based Copy Protection 


@ STANDARD KEY TAG 
Software is protected for an unlimited 
number of executions. 


@ COUPON KEY TAG 
Software is valid for a preset number 
of executions. 


@ READ/WRITE KEY TAG 
Programmer has access to read and 
write 16 bytes. 


@ DURATION KEY TAG 
Software is valid for a preset number 
of days. 


A unique approach to 
copy protection without 
requiring special media. 


SOFTWARE PUBLISHING ASSOCIATION | 
ESTIMATES ONE BILLION DOLLARLOSS 
ANNUALLY DUE TO SOFTWARE PIRACY. _/ 


int pop_group(),end_group(),no_op(),next_question(); 
int checkerror_end_group(),checkerror next _question(); 


Listing Three 


End Listing Two 


[ORO III III IO II I 


Name : prsample.c 


Description 


: A sample that uses the prompter() routine 


RRR IR RR IR KR KK IK KK IKK IK IK IK IK IK IKK RIK KK IK IRI RKIRKK K IKIOK KR KI KK / 


#include<stdio.h> 
#include"prompter.h" 
#include<ctype.h> 


[RR KKK RR RRR KKK KK KR RR 


The report parameter variables 
KKK KKK KKK KKK KKK KK KKK KK KKK KK / 
char report _destination[2]; 
char dest_filename[30]; 
char single or_range[2]; 


char start _account [20],end_account [20]; 


int account_number; 
char display parmname [50]; 
char include overshort [2]; 


[ROR RK KK 


Error Values 
KR KKK KKK KEK KKK KK KK / 
#define ENTER_S OR R A 
#define ENTER _Y OR_N 2 
#define START ACCOUNT LARGER 3 


Disk Based 


Copy Protection 


Prevent unauthorized 
duplication of software 


using GLENCO’s magnetic 
finger-printed disks. Hard 


disk install/uninstall 
feature available. 


@ PADLOCK II DISKS 
Permits unlimited use of 
protected software. 


@ COUPON DISKS 

Ideal for issuing software tests 
or DEMO’s of a fully working 
program. 


@ SAFEGUARD DISKS 
Perfect for universities or 
institutions. No source code is 
oo aati to fully protect 
software from piracy. 


International 
dealers welcome. 


GLENCO 


ENGINEERING INC. 


SERVING THE SOFTWARE INDUSTRY SINCE 1979 
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(continued on page 132) 


Secure software and 
data with reliable, 
effective protection 
products that won’t 
burden honest users. 


Glenco is a world leader in 
the area of software security 
products and services. Our 
copy protection and data 
security products are second 
to none. They are designed 
to function properly ona 
wide variety of third party 
hardware systems. We have 
over 3500 satisfied software 
firms utilizing our systems. 


Systems for... 
IBM - MS-DOS / ZENIX 
Apple - Macintosh 


Call or write for more 
information. 


721 W. Algonquin Road 
Arlington Hts., IL 60005 
(312) 364-SOFT (7638) 
FAX 364-7698 

Telex 493-7109 





Laheeae e wpa script anc 
“resource management approach, _ 
1 Wives offers a comprehensive set o 
development tools, including Data 
Dictionary and Screen Handler—a 
dynamic developmen techni ue 
and complete programmer! , 
With the Toolbox you cr 

programs that are data and 
application independent. d 
unique...if you demand product vi 
_ but refuse to give up control, d- 
als for you. _ 


a register 


design, you can 
: ; Sfibhle modifiable — 
report defining scripts in eit 
or compiled form. r-tree h dles 


“every | a pect of report generation; 


lecting and relating data from 


‘“omplex ca 
control breaks and 
and producing pri 
your exact form 


om Corporation. 





PROCEDURE TABLES 


end_account_val (pc) 


ee ee (Listing continued, text begins on page 68.) 
#define BAD PARM NAME 

#define BAD ACCOUNT _NUMBER 
#defime ENTER P_S OR D 
#define FILE EXISTS 


ADO & 


[RRR RRR RRR IKK IKK 


Report to printer, screen or disk routines 

FOI IO TOIT TR RR KK / 

int filename val(); 

struct question report filename[] = { 
{ "What is the name of the disk file?", 

dest_filename, filename_val,no_op,checkerror end group}, 

{ | NULL,NULL,NULL, NULL, NULL } 
}; 


filename_val (pc) 
struct prcontrol * pc; 
{ 
FILE * fp, *fopen(); 
/* you should put a routine to validate that the response 
entered is a legal file name here */ 
if(fp = fopen(pc->response, "r") ) { 
fclose(fp) ; 
return (FILE EXISTS); 
} 
return (0); 


} 


reportdest_val (pc) 
struct prcontrol * pc; 
{ 
char * strchr(); 
if((!strchr("PpSsDd",pc->response(0])) !! (strlen(pc->response) != 1)) { 
return(ENTER_P_S OR_D); 
} 
return (0); 


} 


reportdest_set (pc) 
struct prcontrol * pc; 
{ 
char destination; 
destination = islower(*pc->response) ? *pc->response-32 : 
switch (destination) { 


*pc->response; 


case ‘P’ 

case ‘'S’ : next_question (pc); 
break; 

case 'D’ : start_group(report_filename, pc) ; 
break; 


return (0); 


} 


[RRR KEKRKK KEKE KKK KK KERR KR KR 


Account routines 
KRKKKKKKEKKKKERKEKAE REA KKK KK / 


int account_val(),end_account_set(),end_account_val(); 


struct question account_range[] = 
{"Enter the starting account.", 
start_account,account_val, no op, checkerror next_question}, 
{"Enter the ending account.", 
end_account, end_account _val, no_op,end_account_set}, 
{ NULL,NULL, NULL, NULL, NULL } 
}; 


int save_account_doit(),account_set(); 
struct question account(] = { 
{"Enter the account.", 
start_account, account_ val,save_account_doit,checkerror end group}, 
{NULL, NULL, NULL, NULL, NULL} }; 


account_or_range_val (pc) 
struct prcontrol * pc; 
{ 


char * strchr(); 

if((!strchr("SsRr",pc->response[0])) |} (strlen(pc->response) > 1)){ 
return (ENTER_S_OR_R); 

} 

return (0); 


} 


account_or_range_set (pc) 
struct prcontrol * pc; 
{ 
char account_or_ range; 
account_or_range = islower(*pc->response) ? *pc->response-32 : 
*pc->response; 
if (pc->errstat) { 
return (0); 
} 


if (account_or_ range == 'S’) { 
start_group (account, pc) ; 

} 

if (account_or range == 'R’) { 
start_group(account_range, pc) ; 


return (0); 


} 


save_account_doit (pc) 
struct prcontrol * pc; 

{ 
account_number = atoi(pc->response) ; 
return (0); 

} 


account_val (pc) 
struct prcontrol * pc; 
{ 
if ((atoi(pc->response) < 100) |; (atoi(pc->response) > 1000)) { 
return (BAD ACCOUNT NUMBER) ; 


} 
} 


return (0); 
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{ 


} 


struct prcontrol * pc; 

int errstat; 

if(errstat = account_val(pc)) { 
return(errstat) ; 


if(atoi(start_account) >= atoi(pc->response) ) { 
return (START _ACCOUNT_LARGER) ; 


return (0); 


end_account_set (pc) 


{ 


struct prcontrol * pc; 


switch (pce->errstat) { 


case NO ERROR : end_group(pc) ; 


break; 
case START ACCOUNT LARGER : restart _group(pc) ; 
break; 
case BAD ACCOUNT NUMBER~ : break; 
} 
return (0); 
} 
[RII RT TI TTT TKI K 
Get display parameters routines 
IIT ITI TR III IR TOK IK IK IK IK / 
char * legal parmnames[] = { /* In a "real" system, this table fd 
"default", /* would probably be stored in a file / 
"daily", /* and parmname_val would check to see */ 
"weekly", /* if the name entered is in this file. */ 
"yearly", 
NULL 
}e 
parmname_val (pc) 
struct prcontrol * pc; 
{ 
int i; 
for(i = 0 ; legal_parmnames[i] != NULL ; ++i) { 


} 


if (strcmp (pc->response, legal _parmnames[i]) == 0) { 
return (0); 


} 
} 
return (BAD PARM NAME) ; 


bld_bad_parmname (message) 


{ 


} 


char * message; 


sprintf (message + strlen(message)," %s, %s, %s, or %s." 
legal_parmnames(0], legal _parmnames[1], legal_parmnames(2], 
legal_parmnames [3]) ; 

return (0); 


[ROI OTTO TIIOK 


yesno validation 


KEKE REEERKKKKREKKEKREREEKEE / 


yesno_val (pc) 


{ 


} 


struct prcontrol * pc; 


char * strchr(); 
if((!strchr("YyNn",pc->response[0])) | 
return (ENTER Y OR_N); 


(strlen(pc->response) != 1)) { 


return (0); 


[ROR ITI IOI TOTO TK Ok 


Main question array procedure table 


RIKI RI RIK RK RIKKI RR IRIE IKK KKK / 
struct question account_parms[] = { 


{"Do you want this report for a single account or a range of accounts? (S 


or-R)", 


D)", 


single_or_range,account_or_range_val,no_op,account_or_range_set }, 
{"Enter the name of the display parameter record.", 

display _parmname, parmname_val,no op, checkerror. next_question}, 
{"Do you want to include the Over/Short Report? (Y/N)", 

NULL, yesno_val,no_op,checkerror next _question}, 
{"Do you want this report on the printer, screen, or saved to disk?(P,S$ or 


report destination, reportdest_val,no_op, reportdest_set}, 
{ NULL,NULL,NULL,NULL,NULL } 
bi 


struct errormess account_errormess[] = 


{ ENTER_S OR_R,"Please enter S or R.",NULL }, 
{ ENTER _ Y OR | _N,"Please enter Y or N.",NULL }, 
{ START " ACCOUNT _LARGER, "The starting account must be smaller-than the 


ending account.",NULL }, 


{ BAD “ACCOUNT NUMBER, "The account number must be between 100 and 


1000",NULL }, 


{ BAD_PARM NAME,"Choose one of the following :",bld_bad_parmname }, 
{ ENTER Ps S OR_D,"Please enter P, S or D",NULL }, 

{ FILE _ EXISTS, "That file already exists.",NULL }, 

{ -1,NULL,NULL } 

he 


main (argc, argv) 


int argc; 
char * argv[]; 


int errstat; 
struct prcontrol prcontrol; 


prcontrol.current_group = account_parms; 
prcontrol.errormess = account_errormess; 


if(errstat = prompter (&prcontrol) ) { 
handle error(errstat, account_errormess) ; 


/* Print the report with the gathered parameters */ 


End Listings 
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Background on 
Backprop 


ast month I reported on a conver- 
sation with engineer Hal Harden- 
bergh about his interest in neural 
networks. I’ve also been talking 
with Hardenbergh’s software cohort in 
neuraldom, Tom Waite, as well as with 
neural net algorist Dave Parker and 
engineer/programmer/writer Jurgen Fey 
about neural nets, transputers, and the 
Occam language. Next month I'll re- 
port on those conversations and take 
a more algorithmic look at neural nets. 
_ This month I’m stepping out of the 
interview format to present some back- 
ground that I hope will put last month’s 
and next month’s columns in perspective. 
Last month’s column touched only tan- 
talizingly on some issues, such as the 
present-day practical uses of neural net 
technology. There are some remarkably 
mundane as well as some cutting-edge 
uses to which neural net insights have 
been put in the past twenty-five years. 
Also, the interview format may have 
made it hard to be sure, in reading last 
month’s column, just what was histori- 
cal or technological fact and what was 
Hardenbergh’s perspective (however 
valid and interesting that perspective 
might be). This month’s neural net back- 
grounder should clear that up. The very 
fact that a hardware engineer would 
get interested in what has been re- 
ferred to as “the parapsychology of 


Michael Swaine 


AI,” a fact that I presented as some- 
what surprising, in fact has a history 
of its own, and in the perspective of 
that history is not so surprising after all. 

Lately in this column I have been 
asking software developers (and last 
month an engineer) why they are pur- 
suing certain approaches to software 
development rather than other ap- 
proaches. This month I guess I’m ask- 
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ing myself “Why neural networks?” 
You'll find only one reference listed at 
the end of this column, because all the 
articles I drew upon can be found in 
the omnibus collection by Anderson 
and Rosenfeld. I recommend it to any- 
one interested in the history and pre- 
sent state of neural network research 
and development. 


Where Did It Begin? 

The perceptron model proposed by F. 
Rosenblatt in 1958 was the beginning 
of all modern neural network research. 
It already contained most of the inter- 
esting elements present in today’s neu- 
ral nets. | 

It described an artificial nervous sys- 
tem. It combined cells into several con- 
nected layers: A “retina” where input 
signals arrived, an “association layer” 
where retinal cells connected, and a 
“response layer.” Connections between 
association-level and response-level 
cells were bidirectional, permitting feed- 
back that allowed the perceptron to 
learn. The goal of the operation of 
the perceptron was to learn to activate 
the right response layer for the given 
input. 

Rosenblatt also focused on the kind 
of problem that occupies most neural 
networks today: The classification of 
interesting patterns of inputs. It was a 
sufficiently difficult problem that it still 
challenges neural net developers; it was 
also sufficiently difficult to cause seri- 
ous problems for Rosenblatt’s per- 
ceptron when two AI experts subjected 
the perceptron to rigorous analysis. 


Where are the Practical Applications? 

As I was working on this column, I got 
a call from Hal Hardenbergh. You know 
what new explosives detector they’re 
using at JFK International Airport? he 
wanted to know. Yep. Well, it’s a neu- 
ral net. Coming as it did two days be- 





fore I would be standing in a line at JFK 
to board a flight to Europe, Harden- 
bergh’s bulletin took on a personal sig- 
nificance for me. 

There are more neural net devices 
in use than meet the eye. A fair amount 
of neural net research and develop- 
ment is DoD work, and we either don’t 
hear about it or hear about it only 
obliquely. Sometimes presentations at 
neural network conferences seem to 
be delivered in an obscure code. What 
is this about recognizing faces in the 
fog? Wait, if you substitute “smoke” for 
“fog” and “tank” for “face,” does it 
begin to make more sense? 

One of the biggest success stories to 
come out of neural network research 
is adaptive switching circuits, described 
by Bernard Widrow and Marcian E. 
Hoff in 1960. Hoff is Ted Hoff, the 
inventor (if you live west of the Rio 
Grande) of the microprocessor. 

The perceptron learned by changing 
its coupling coefficients in response to 
error feedback regarding its immediate 
past classifications. But many of the 
proposed perceptron learning rules 
were impractically slow in converging 
to the coefficients that would give cor- 
rect classifications. Widrow and Hoff 
developed what they called an adap- 
tive neuron, related to perceptrons, that 
converged tocorrect classification quickly. 
One novel feature of Widrow and Hoffs 
neuron was that it continued to learn 
even when it was emitting correct re- 
sponses. 

Widrow and Hoff built a lunchbox- 
sized adaptive pattern classification ma- 
chine to demonstrate their adaptive neu- 
ron’s learning behavior. They originally 
called the box Adaline, which stood 
for either Adaptive Linear Neuron or 
Adaptive Linear Element, depending 
on how comfortable they felt about 
neural net research when they were 
discussing it. 
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(continued from page 134) 

But it was not learning lunchboxes 
that proved the value of Widrow and 
Hoff’s technique. The error correction 
algorithm they used is called “least mean 
squares,” or LMS, because it involves 
minimizing the square of the error, and 
LMS has been used extensively in sig- 
nal processing and has seen wide use 
in error correction in modems. 


Neural net research 
focuses on how to 
hook up networks 

of artificial neurons so 
they can learn from 
experience 


Widrow and Hoff also laid some 
groundwork for current neural net de- 
velopment. Neural net research focuses 
on how to hook up networks of artifi- 
cial neurons so they can learn from 
experience. The best-known current al- 
gorithm for implementing “experience” 
in neural nets is back propagation, 
which is a generalization of the Widrow/ 
Hoff rule. As Hardenbergh pointed out 
here last month, back propagation had 
to be discovered three times before the 
discovery stuck. 


Why Three Times? 

Rosenblatt first described the perceptron 
in 1958, but the machinery he first pro- 
posed is still in use in neural network 
research and development. For years 
it was a hot area of research, with hun- 
dreds of papers published. 

Then, suddenly, the bottom dropped 
out, and so did the funding. The very 
use of the word “neuron” became un- 
popular in AI work. The reason was 
the fundamental inability of elemen- 
tary perceptrons to classify certain kinds 
of patterns. Psychological researchers 
called the relevant kind of pattern clas- 
sification problem concept attainment, 
and the interesting patterns in concept 
attainment were those involving dis- 
contiguous sets, exclusive ors, and prob- 
lems that could not be solved by parti- 
tioning an input space with planes. 
This limitation of simple perceptrons 


was brilliantly spelled out in Minsky & 
Papert’s 1969 book Perceptrons. 

Minsky and Papert made their point 
clearly and emphatically. Inability to 
handle problems of the concept forma- 
tion—type was a serious problem, and 
they treated it as such: They dismissed 
the bulk of the hundreds of perceptron 
papers as “without scientific value.” 

In retrospect, it appears that Minsky 
and Papert were a little precipitous in 
concluding that the problem they iden- 
tified could not be solved. Simple single- 
layer perceptrons may have been 
proved to be without scientific value, 
but the same could not be said for 
multilayer perceptrons. Adding a cou- 
ple more layers would allow per- 
ceptrons to classify all sorts of prob- 
lems, although it complicated the learn- 
ing problem seriously. What was needed 
was a practical learning algorithm for 
multilayer perceptrons. But so effec- 
tive was Minsky and Papert’s demoli- 
tion job that nobody took the discov- 
ery of such an algorithm seriously at 
first. Or at second. 


Is Backprop the Algorithm of Choice? 

It is if you are doing multilevel neural 
net work. The only other algorithm 
that works with multilayer nets, the 
Boltzmann machine, is much slower. 

Backprop is a generalization of the 
Widrow/Hoff error correction rule. The 
Widrow/Hoff rule compared the actual 
output with what the output was sup- 
posed to be and used the magnitude 
of the error to adjust strengths of the 
connections between cells. For situ- 
ations in which the correct response 
was known, it worked well. Adding 
additional layers introduces a difficulty. 
How do you compute the correct output 
for the hidden intermediate layers in 
order to adjust the connection strengths 
that led to these outputs? The problem 
is complicated by the fact that adjusting 
the connection strengths actually changes 
the topology of the network. 

The solution used in back propaga- 
tion is to run the connections back- 
ward, to ascertain the strengths. Back 
propagation involves a forward pass 
through the layers to estimate the error 
and a backward pass to modify the 
connection strengths and decrease the 
error. 

Backprop currently looks like one 
of the most promising, if not the most 
promising area of neural net research, 
and could generate some interesting 
results. One of the intriguing ideas about 
neural nets, particularly Boltzmann ma- 
chines and backprop nets, is the no- 
tion that deep insights into the nature 
of the information being processed and 
the effective representation of it can 
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(continued from page 130) 
be derived from looking at the internal 
layers. A neural net that learns to clas- 
sify patterns effectively, it is argued, 
contains in its hidden layers a repre- 
sentation of the input. If the output 
classifications are adequate to our needs, 
then the hidden-layer representations 
are also adequate, and we could send 
only these representations, dispensing 
with the input. 

One benefit could be the use of 
backprop neural nets to develop new 
data compression algorithms. 


Why is This of Interest to a 

Hardware Engineer? 

It’s not so odd that Hardenbergh, an 
engineer, was attracted to this domain 
of artificial intelligence. Perceptron re- 
search and neural network research 
have always had enormous appeal for 
engineers. “Much of the later work on 
perceptrons and successors was done 
by engineers and physicists,” Ander- 
son and Rosenfeld say, “a situation still 
true today in research on neural net- 
works.” The perceptron was a learning 
machine, potentially capable of com- 
plex adaptive behavior. It’s easier to 
conceive of it as a device than as an 
approach to developing AI software 
systems; and until you see the algo- 


rithms spelled out, it’s easier to see 
neural nets as a mathematical or engi- 
neering challenge than as a program- 
ming problem. 

Hardenbergh and Waite see them as 
all of the above. Although I don’t mean 
this to be a plug for Vicom or its em- 
ployees, there are several reasons why 
I am going to keep a journalist’s eye 
on Hardenbergh and Waite and Vicom. 


e The canonical problem for neural 
networks is the classification of vis- 
ual figures, pattern classification. The 
earliest work in the neural net tradi- 
tion, Walter Pitts and Warren S. 
McCulloch’s research in the 1940s, 
focused on problems like recogniz- 
ing squares wherever they appeared 
in the visual field. The basic problem 
remains unsolved today. It’s particu- 
larly apparent to anyone who has to 
process image data. Vicom is in the 
image-processing business. 
Image-processing companies are at 
something of an impasse: They all 
have the same algorithms, nobody 
has any technological edge. The time 
is ripe for a new approach. 

Vicom is not exclusively wrapped up 
in DoD work, so that smokescreens 
will not obscure their results. 

e The amount of money required to 


fund a real breakthrough in neural 
nets for image processing is probably 
not enormous, not beyond the reach 
of potential customers of a company 
like Vicom. 

eT like the way Waite and Harden- 
bergh are approaching this. They are 
pragmatic enough to be discussing 
using neural nets as a component of 
an image processing system, not over- 
loading the network, not forcing it 
to solve problems for which there are 
already good image processing solu- 
tions. They are bringing hardware and 
software knowledge into the process 
at the start. And they seem focused, 
which is good if their approach is the 
right one. 


Next month: Tom Waite (and others) 
on back propagation (and other topics). 
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C PROGRAMMING 


OOPs to the Left, 
FOPs to the Right, 


and a View from 
the Center 


t turns out that I have been misus- 
ing a C language feature, the power 
of which I have only just come to 
understand. The feature is the 
typedef statement. Let’s examine how 
my minor transgression came about by 
looking at how typedef can be used 
and how it should be used. 
Suppose you have a structure like 
this one: 


struct empl_rcd { 
int emplno; 
char empIname[25]; 
unsigned date_hired; 
int empl_category; 
long salary; 

F 


You can define a brand new data type 
for this structure with the typedef state- 
ment. Of such is the extensible nature 
of C. It works like this: 


typedef struct empl_rcd EMPLOYEE; 


All declarations of the structure can 
now use the new EMPLOYEE data type 
rather than the struct empl_rcd type. 
These are examples of how you can 
declare instances of this data type. 


EMPLOYEE newhire; 
EMPLOYEE ‘retired; 
EMPLOYEE chiefs[5]; 


Why do this? Subsequent references 
to the structures might gain nothing from 
the use of the typedef. In practice, you 
could not tell by looking at the code that 
accessed one of these structures that 
the EMPLOYEE data type had been de- 
fined at all. Witness these expressions. 


printf(newhire.emplIname); 
total_payroll += chiefs[i].salary; 
return retired->empl_category; 


Al Stevens 


In none of these cases is the code 
insulated from the format of the data 
structure. In all cases, the code is ex- 
actly the same as if the typedefhad not 
been used. The strongest advantage of 
the typedef, its ability to hide informa- 
tion, is not realized by these uses of it. 
If no other software in your system 
needs to know that EMPLOYEES exist, 
the typedef is wasted. What, then, do 
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you gain from the EMPLOYEE typedef 
provided in these examples? Nothing, 
unfortunately, unless you consider the 
reduced keystrokes involved in coding 
the name. 

Now consider the C standard input/ 
output library FILE type. This is a typedef 
defined in stdio.h that identifies a stream 
file definition. The structure itself, if 
such there be, is defined in stdio.h, and 
its name and format are implementation- 
dependent. A designer of a standard C 
input/output library can define a FILE 
to be anything from a simple integer 
to the file-defining structure itself. This 
seems to be a more correct use of 
typedef. There is something called a 
FILE, and its implementors know its 
internals. You know only what you 
need to know to use a FILE, and you 
do not care whether it is a structure, 
union, integer, pointer, or what. All 
you know is that you can use one. 

In an application program you typi- 
cally do three things with a FILE data 
type. You declare pointers to the type, 
assign values to the pointers by calling 
library functions that return the address 
of a FILE, and pass the FILE pointers 
to other functions. The library func- 
tions know what to do with the point- 
ers because they know the format of 
the FILE data type. The calling program 
does not (or does not need to) know 
that. The information is thus hidden. 
You can peek and learn it if you want, 
and you could code specific references 
to the data structures that underlie it, but 
you would surely sacrifice portability, 
not only among compilers but possibly 
between versions of the same compiler. 

How then could we use the EM- 
PLOYEE typedef in ways that would 
benefit us? One way would be to de- 
fine it in a header file and tuck all the 
employee-related functions away in 
their own function library, much like 
the stdio.h file and standard library are 
used. Then, applications programs that 
need to do things to employee records 
could call these functions with EM- 
PLOYEE pointers in the same way we 
use the FILE pointer for stream input/ 
output. The functions in the library 
would have to be aware of the formats 
of the data structures, but the using 
functions would not. That way payroll, 
personnel, and project management sys- 





tems could all use the same employee 
function library without needing to know 
the internal formats and methods of 
how employee records are stored. Al- 
most object-oriented, wouldn’t you say? 

How have I abused the typedef? Last 
autumn, in the window function library 
that supports the SMALLCOM project, 
I defined MENU and FIELD data types 
and then required the applications pro- 
grams, programs that you might write, 
to initialize the structures under the 
typedef definitions. Nothing is hidden. 
In order to use the menu and data- 
entry function library, you must know 
the format of those structures. Change 
the format and you must change your 
programs. A better approach would 
have been to provide initializing func- 
tions or macros with initializing data 
values as parameters. Then, when the 
underlying structures and functions 
change to accommodate new require- 
ments, only the applications programs 
that deal with the changes need to be 
looked at. 

Why do I need to hide information 
from myself? I know the formats of 
those structures, I understand the prob- 
ability that they will change and the 
implications of such change, and, be- 
sides, initializations are more efficient 
at compile time than at run-time, any- 
way. (Insert here your favorite argu- 
ment for continuing to do things the 
way you have always done them.) 

A compiler must hide the details of 
the FILE data type to preserve the stan- 
dard method for implementing it. But 
how well hidden is it? Look into stdio.h 
and you will see the whole enchilada. 
The FILE structure format is there. Some 
of the standard library functions ex- 
pand into macros that directly address 
members in the FILE structure, and the 
macros are there. How well hidden is 
information that I can find in well- 
commented source code by using my 
text editor? 

The answer, of course, is that the 
standard input/output information hidey- 
hole is a benign safe-store, benign in 
that a curious seeker can find it and 
peruse its contents without difficulty, 
benign in that only casual measures 
protect its secrets from the voyeur. You 
would not care to regard, on a daily 
basis, the details of the garbage dis- 
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C PROGRAMMING 


posal in your kitchen or the destination 
of its fare, but you know where the 
information can be found if you really 
need it. The same is true of the infor- 
mation hidden in readily accessible 
stashes such as stdio.h. | 

These are not new ideas. Informa- 
tion hiding has been talked about and 
used for years. But it has come to be 
viewed in a new light in recent years, 
one called “object-oriented program- 
ming,” and I began to revisit my own 
practices with such things as typedef 
when I began studying OOP. The new 
light is still dim and my vision myopic, 
but we’ll break out of the clouds soon, 
I think. One thing is clear: OOP en- 
courages you to do a better job of 
hiding the hideable information. 


OOPs 

I think it was Robert Benchley who 
observed that the world is divided into 
two kinds of people — those who di- 
vide the world into two kinds of peo- 
ple and those who do not. The world 
of programmers is dividing. There are 
those who embrace object-oriented pro- 
gramming and those who do not. Let’s 
wonder why. 

We are told that to learn OOP we 
must abandon what we know about 
conventional programming, that the big- 
gest obstacle to learning is one of un- 
learning. The prospect of returning to 
elementary school will discourage a lot 
of conventional programmers who feel 
that they know how to write programs 
just fine, thank you. 

My pal at DDJ, Kent Porter, suggested 
a two-syllable word for the notion that 
OOP is totally new and different, a 
word that means what you get when 
you run your favorite straw hat through 
a bull. Kent had been toying with the 
object-oriented extensions coming to 
Turbo Pascal and had crossed the fence 
to the greener pastures of OOP. Kent 
was too old to start learning all over 
again. And he was too young to leave 
when he did. I will miss him. 

For me, I am studying C++ now, and 
it has been suggested that the Turbo 
Pascal extensions are a smooth bridge 
from C to C++. I intend to explore that 
possibility. My prophesy is that the pre- 
vailing OOP language will be C++, and 
that its full acceptance will occur when 
and if Borland and Microsoft introduce 
C++ compilers. If anything has ever 
screamed for OOP support, the appli- 
cations program interfaces to DOS Win- 
dows and OS/2 Presentation Manager 
have. Their apparently object-oriented 
architectures sure do need a C++ with 
related object libraries behind them. 

I tend toward C++ because it is a 
superset of C, and one can always re- 


treat to C when the OOP view does 
not seem to fit. Some OOP purists sug- 
gest that C++ is not really OOP. Maybe, 
maybe not, and maybe the paradigm 
has not settled in, but I’ll still bet C++ 
is the wave of tomorrow if there is 
going to be a new wave. 

Whether or not C++ replaces C as a 
primary development language depends 
on how much it is hyped by the mov- 
ing forces in language development 
and what it does for the programmer. 
Certainly if Borland and Microsoft get 
behind it, lots of programmers will give 
it a try. But programmers will not stick 
with C++ unless there is a reason to. 

We measure the value of a language 
by its ability to express a complex algo- 
rithm with few lines of code in a way 
that can be read and plainly under- 
stood. Most programmers took to C 
because it could do those things with- 
out getting too far away from the hard- 
ware and without rigidly enforcing any- 
thing. To win C programmers over, 
C++ has to get things running with 
fewer and easier lines of code, make 
for programs that are easier to modify, 
or both. As long as the code is readable 
later, why code two when one will do? 
C++ has to improve our ability to write 
programs, or it is not necessary. 

So what is different about OOP? Per- 
haps it is that the OOP view of a pro- 
gramming problem has a different per- 
spective than the one we enjoy now. 
But is that really so? | 

The OOP view looks toward the data 
structures and the functions specific to 
those structures. You describe classes 
of data, objects that are instances of 
those classes, and methods to process 
the objects. Then, to make things hap- 
pen, you send a message to an object, 
and things happen. Consider that old 
chestnut, hello.c, in conventional C. 


/* ------ hello.< in: C == */ 
#include <stdio.h> 
main( ) 


{ 


This program is oriented to the func- 
tion it performs. It is a function-ori- 
ented program (FOP). The FOP pro- 
grammer thinks about solutions in terms 
of the procedure, the functions, the 
steps one takes to solve something. 

Now, consider the same program in 
C++ 


printf("hello, world\n"); 


0 eee hello.c in C++ 
#include <stream.h >> 
main ) 


cout << "hello, world \ n"; 


Dr. Dobb’s Journal, August 1989 


10 Important Reasons 


C Programmers Use 
File Mana 


Ur 


It’s fast and flexible. 


The combination of relational B-tree 
indexing and network model database 
technology delivers better performance 
than file managers using relational 
technology alone. Build simple B-tree/ 
ISAM applications or complex database 
applications. You decide how to 
optimize runtime performance. 


No royalties. 


You save money, increase profits, and 
application distribution is much simpler. 


It’s written in C. 


Your applications are 
portable to MS-DOS, 
UNIX and XENIX. 


Referential Integrity is 

easy to maintain using 
db_FILE's network model 
file structure. 


This increases productivity and lowers 
development costs. 


db FILE is upwardly 


compatible with Raima's 


db_VISTA III Database 
Development System. 


If your application requirements exceed 
db_FILE's capabilities, you can easily 
upgrade to db_ VISTA III. 


Free lifetime support. 


*Raima reserves the right to discontinue this promotion at any time without notice, so please check pricing when you call. 
Raima Corporation 3245 146th Place S.E., Bellevue, WA 98007 USA (206)747-5570 Telex: 6503018237 MCI UW FAX: (206)747-1991 
U.K.: (0992) 500919 Germany: 07127/5244 Switzerland: (01)725 0410 France: (1)46092828 Benelux: 31(02159)46 814 Sweden: (013)124780 Italy: 045/584711 Norway: 47 244 88 55 
Denmark: (2)887249 Singapore: 468 3888 Australia: (02) 9595122 Japan: (03)473 7432 Taiwan: (02)511 3277 Mexico: (83) 57 35 94 Central America: (506) 28 07 64 





db_ FILE” 


File Manager 2.2 


File Structure: 

Based on B-tree indexing and 
network database model. Both 
access methods may be used 
independently or in combination 
for real power. 


Data Types Supported: 
Standard C data types plus 
db_adadr for user defined 
record linkages. 


Transaction processing 
supported 


Not RAM resident 


Operating Systems 
Supported: 
MS-DOS, UNIX, XENIX 


C Compilers Supported: 
UNIX, XENIX, Microsoft, 
Lattice, TurboC 


Hardware Independent 
Major LANs Supported 





RAIMA’ 


CORPORATION 







Complete C source code 
is now included! 


[ 9] db_RETRIEVE — the 
SQL-based Query and 
Report Writer is now 
included in this special offer. 
db_RETRIEVE provides a relational 


view of db_FILE databases. Embed SQL 
into your application or use it ad hoc. 


SPECIAL LIMITED 
OFFER: You get 

db FILE, db RETRIEVE 

and the source code for each — 

all at one low price! 


Single-User Package’ $295.00 
A $1780 value. 


Multi-User Package’ $595.00 
A $2890 value. 


‘Each packages includes db_FILE, db_RETRIEVE and Source Code 
for both. 


You won't find a better value 
anywhere! This is a limited time 
promotion*, so order now to take 
advantage of the tremendous savings. 


Ordering is easy! Call 
1-800-db_ RAIMA for your 


nearest distributor. 
Ask about the many other products and 
services Raima Corporation offers, 


including consulting, application 
development services, and training. 


Texas: (214) 231-3131 International Distributors: 


W368dd 


Caribbean: (809) 834 4069 Colombia: 57 1 2189245 Argentina: 54 1 3135371 Chile: 56 2 696-4308 Uruguay: 92 1937 Brazil: (0192) 52 9770 © 1989 








C PROGRAMMING 


(continued from page 142) 

This program, we are told, is oriented 
to its objects, the data structures it sup- 
ports, and the methods it uses to sup- 
port them. 

They look similar, don’t they? In con- 
ventional C, you called the printffunc- 
tion, passing it the address of the string 
to display. The stdio.h header file pro- 
vided the prototype for the printf func- 
tion. In C++ you send a message to 
cout, which is an object of class os- 
tream as defined in stream.h. The mes- 
sage consists of the address of the string. 
The << operator, also defined in 
stream.h as a part of the class, is the 
method the object will use. 

The << operator is not itself an inte- 
gral part of C++ any more than the 
printffunction is an integral part of the 
C language. The << operator is associ- 
ated with the ostream class within 
stream.h. You can associate custom op- 
erators with classes in C++. The greater- 
than operator, for example, can mean 
different things to different classes. More- 
over, it can mean different things in the 
same class when taken in the context 
of the types of what it operates on. 

Now let’s write the “hello, world” 
message to a file. First, we'll use con- 
ventional C: 


#include <stdio.h> 

main( ) 
FILE “fp: 
fp = fopen("hello.dat", "w"); 
fputs("hello, world\n", fp); 
fclose(fp); 


In standard FOP C, you call three func- 
tions. The first one opens the file and 
returns a pointer to a FILE. The second 
function accepts a data address and 
a FILE pointer and sends the data 
string to the file. The third function 
closes the file. 

Now let’s look at the same operation 
with C++: 


#include <stream.h> 

main( ) 

{ 
filebuf bf; 
bf.open("hello.dat", output); 
ostream op(&bf); 
op.put("hello, world\n"); 


In the C++ OOP’ view, you declare an 
object of class filebuf named bf. This 
object is the data buffer itself. Next you 
connect the buffer to a stream file with 
the filebuf::open function. The other 
way of saying that is that you send the 
string address and the output flag as 
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messages to the bf object, telling it to 
use its open method. Then you declare 
an object of type ostream named op 
with the filebufas an initializing argu- 
ment. Finally you send the string mes- 
sage to the op object telling it to use its 
put method. 

At this level, the two views are still 
similar. A C programmer could make 
the transition to C++ with little prob- 
lem if this was as far as it went. In fact, 
you might wonder, why bother? It ap- 
pears to be a syntax change, nothing 
more. The big difference, however, is 
in what is hidden. The definitions of 
the filebufand ostream classes are sig- 
nificantly different from their FILE coun- 
terparts in standard C. 

“So what?” you might ask. “The dif- 
ferences are hidden. Who cares how 
different they are?” 

Think back to the EMPLOYEES 
typedef. That one is a part of the appli- 
cation, is your responsibility, and, if it 
is to be an object, needs a class, hidden 
member data structures, and public mem- 
ber method functions. To design these 
things you have to be as object-ori- 
ented as the language. If OOP has any- 
thing to offer, the apparent different 
statement syntax is not it. There must 
be merit in the taking of that different 
perspective. 

One of the problems we will con- 
front in writing our first C++ programs 
is deciding what should be classes and 
objects and what should not. When 
do we send messages and when do 
we call functions? What is the most 
appropriate way to send messages? Sup- 
pose your program posts error condi- 
tions by opening a window and dis- 
playing the message. Should the error 
processor be an old-fashioned C func- 
tion like this? 


error("Too many Chiefs"); 


Or should the error processor be an 
object of a class of output like this? 


class error: public window { 


F 
error errs; 
errs.post(""Too many Chiefs"); 


Should the error processor use a mem- 
ber function as just shown, or should 
it use its Own operator to post errors 
like this? 


errs << "Too many Chiefs"; 


You might post errors with the error 
class’s constructor and destructor func- 
tions. The constructor function is called 
when the object is declared, and the 


destructor function is called when the 
object goes out of scope. 


if (chiefs > MAXCHIEFS)  { 
error errs("Too many chiefs"); 


This OOP stuff is beginning to make 
sense. The code in this column may 
have a few mistakes, but I’m just learn- 
ing C++ myself. In the next few months 
Pll explore it in more depth, and we'll 
learn together. 


Are People Object-Oriented? 

For a programming paradigm to take 
hold, it must work like people think. 
The solution to a problem should re- 
semble the problem. Are we object- 
oriented creatures? I think we might 
be. People know how to do many com- 
plex things but usually only within the 
context of the objects involved. A 
plumber’s methods have meaning only 
when considered in the context of sinks, 
bathtubs, and the like. Take away an 
understanding of the objects and the 
methods would be nonsense. 

So what is more important and de- 
serves more emphasis, the object or 
the methods, the bathtub or the 
plumber’s tools and procedures? Where 
should the perspective be? And what 
should be saved? 

With traditional FOP, you preserve 
general-purpose, reusable functions in 
libraries, and you keep the applica- 
tions data structures in header files. 
The two are not associated except within 
the context of programs that tie them 
together. The applications-specific func- 
tions are generally not retained for reuse. 
In OOP you can catalog the reusable 
stuff just as with FOP, but you also 
closely associate data-oriented functions 
with the data structures as objects, and 
you can save these objects for reuse if 
appropriate. 

So what should be in the library, the 
functions or the objects? What should 
be designed to be reusable? Obviously, 
only those things that are likely to be 
reused should be so designed, and some- 
times it goes One way and sometimes 
the other. Without knowing any better, 
Iam drawn to C++ because of its sub- 
set ANSI C. You can go either way even 
within the same program. Only time 
will tell if that is a good idea. 

My pal Bill Chaney tells me to think 
again; a FOP is a dandy, and OOPs 
means a mistake has been made. 


Book Report: 

The C++ Programming language 

The C++ Programming Language by 
Bjarne Stroustrup tries a lot to be the 
K&R book of C++. It resembles the 
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“white book.” It has the same size, 
same style and presentation, and (al- 
most) the same title. But K&R is a well- 
crafted description of C aimed at the 
programmer who does not yet know 
the language. As you read K&R, you 
are led carefully through the features 
of the language with well-organized 
examples and a well-designed sequence 
for the presentation of information. The 
C++ book does not measure up to this 
high standard. 

If anything is going to spell the de- 
mise of C++ or OOP in general, it is 
that the language and the paradigm are 
or seem to be difficult to describe. Pro- 
grammers do not readily embrace some- 
thing that the experts cannot explain. 
Maybe it isn’t so difficult; maybe no 
one has described them correctly yet. 
You will hear that many programmers 
have difficulty making the transition 
from C to C++. Perhaps they are trying 
to do it by reading this book. Believe 
me, Stroustrup’s book is not the place 
to begin. 

Once it gets past a brief description 
of the C subset, the book dives into 
details way too deep for the newcomer. 
For example, it introduces classes with 
a discussion of how ostream is imple- 
mented without explaining what os- 
tream is. Then it sinks into an arcane 
description of how operator overload- 
ing is used to implement expressions 
like A << B << C well before it fully 
explains how you can extend the 
language with operators for objects. 
This book suffers from the malady that 
most treatments of OOP have — ab- 
struse examples. Most programmers will 
not relate to the implementation of 
stream input/output classes and ob- 
jects because they do not do that 
kind of programming. Most program- 
mers will not associate with examples 
that use complex numbers, because 
relatively few real-world programming 
problems use them. The book renames 
C’s arrays, calling them vectors, and 
never explains that. Then, to further 
confuse you, the discussion of vectors 
makes you think that there is a vector 
class by building one. Not until later 
do you learn that you are being told 
how to use the features of C++ to 
do your own vector bounds checking 
and not using C++’s unbounded vec- 
tors at all. The entire operator topic 
uses the implementation of improved 
vectors as an example. Most program- 
mers would not cozy up to these exam- 
ples even if the examples were well- 
organized and -presented because most 
programmers do not write systems pro- 
grams where such techniques are ap- 
plied. The approach taken by this book 
resembles the typical university com- 
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puter sciences curriculum, where em- 
phasis is on language design and com- 
piler development rather than how and 
why they are used. 

That’s about as far as I’ve gotten with 
The C++ Programming Language. I'm 
looking for another book. 

My first impression of C was taken 
from K&R. The organization and clarity 
of that work engendered confidence 
in the language. It was easy to believe 
that the language would live up to its 
promise; Dennis Ritchie, one of the 
coauthors of the book, designed the 
language. 

If the same confusion and lack of 
organization found in the C++ ‘“defini- 
tive reference and guide” is in the lan- 





guage (C++ was designed by Strous- 
trup), we are in deep sushi. First im- 
pressions die hard, but I hope to be 
wrong. I still believe that C++ will be 
the next major programming language. 

As the work of the ANSI X3J11 com- 
mittee winds down, they are consider- 
ing the standardization of C++. If this 
undertaking gets going, it is a sure sign 
that C++ will establish and maintain a 
strong presence for a long time. 


DDJ 
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The First 67 Miles 
of Curves 


riving south from Carmel, Cali- 
fornia, along the wild, vertical 
cliffs of the Big Sur coastline, 
you pass a sign saying “Curves 
Next 67 Miles.” A couple of hours and 
67 miles later, you come to another sign 
saying “Curves Next 42 Miles.” I guess 
some bureaucrat figured that 67 miles’ 
worth of bad news was all your average 
motorist could handle at one time. 

The drive through Big Sur is one of 
the most spectacular collections of 
curves in the world. In one respect, 
however, there’s nothing unusual about 
it. Nearly everything in nature consists of 
curves. Look around. Just about the only 
straight lines you see are man-made. 

The reason we’ve concentrated so 
far on straight lines in computer graph- 
ics is that they’re easy to deal with and 
easy to understand. However, if graph- 
ics is to depict real-world objects it has 
to draw curves. 

This is a difficult subject. Whole ca- 
reers in computer science are devoted 
to the investigation of curves. So I'll be 
more honest than that nameless bureau- 
crat and tell you up front that there are 
a full 109 miles of curves ahead. How- 
ever, we're going to take them the same 
way most people travel through Big Sur: 
In stages, with stops along the way. 

We begin this month with two rela- 
tively simple curves that can be used 
to depict most rounded objects. The 
first is the ellipse, which can also draw 
a circle. The other is the conic spline, 
a remarkably supple object forming an 
arc. The road through Big Sur can be 
likened to a connected string of conic 
splines. In due course later, we'll con- 
sider cubic and Bezier splines, which 


Kent Porter 


are useful for concisely expressing com- 
plex curves in two and three dimen- 
sions. But first let’s do the easier stuff. 


‘Round and ‘Round We Go 

Remember Bresenham? He’s the guy 
we talked about in March, who in- 
vented a way to draw straight lines 
efficiently. Well, Bresenham didn’t stop 
there to rest on his laurels. He went 


146 


on to figure out how to draw ellipses 
without using floating point arithmetic. 
If you want a good exposition of the 
Bresenham method, see Algorithms 14 
and 15 in James Blinn’s article “How 
Many Ways Can You Draw a Circle?” 
(DD, September 1987). That article will 
also give you an insight into the com- 
plexities of even something as appar- 
ently simple as a circle. 

The easiest way to make a circle is 
to rely on classical trigonometry. Given 
any angle, you find the corresponding 
point on the circle as follows: 


e The X is at the cosine of the angle 
times the radius, plus the center X. 
e The Y is at the sine of the angle times 
the radius, plus the center Y. 


This seems so simple that one wonders 
why circle-making is a big deal. 

The problem is that it’s computation- 
ally intensive. The sine and cosine are 
periodic floating point functions that 
take a lot of resources (that is, time) to 
calculate. It wouldn’t matter much if 
every computer was equipped with float- 
ing point hardware such as an ’87 chip. 
However, few are, relying instead on time- 
hungry floating point emulation in soft- 
ware. Integer operations are much faster, 
and that’s why Bresenham and others 
have quested for better methods. 

With so many learned folks studying 
the problem, it’s inevitable that variants 
on the Bresenham algorithm have ap- 
peared. The one we discuss here is 
called the midpoint algorithm. Wilton’s 
PROGRAMMER’S GUIDE TO PC & PS/2 
VIDEO SYSTEMS (1987, Microsoft Press) 
devotes most of Chapter 7 to this algo- 
rithm, so I won’t go into much depth; 
if you’re serious about graphics, get 
this book. 

In nature, an ellipse is a circle elon- 
gated in some direction. To simplify 
matters, the Bresenham algorithm and 
its derivatives impose a limit: An ellipse 
can be elongated either horizontally 
or vertically, but not on the diagonal. 
(The conic splines discussed later re- 
move this restriction.) If we can de- 
scribe an ellipse as a stretched circle, 
then it’s also fair to say that a circle is 
an ellipse in which both axes have the 











same length. That’s why the method 
works for both true circles and ellipses, 
and why the terms are interchangeable. 

The midpoint algorithm assumes that 
we start at point /0, y/ and proceed 
through one quadrant, or 90 degrees 
of angular motion, to point f/x, O/ (where 
y is the vertical semiaxis and x is the 
horizontal). In other words, it only wor- 
ries about the upper-right quadrant of 
the ellipse. Corresponding points for 
the other three quadrants are found 
by adding to and subtracting from the 
center coordinates. 

As the curve forms the exact edge 
advances, moving among and between 
pixel positions on the raster display, 
just like a slanting straight line. To draw 
a reasonably accurate representation, 
then, it’s necessary to find out which 
fixed pixel is closest to the real curve 
at any given point. We could do this 
in the classic sine/cosine method by 
rounding the results of the calculations. 
To save that overhead, the Bresenham 
algorithm uses a decision variable called, 
by convention, d. 

In general, if dis positive, then the 
curve lies below the midpoint between 
two vertically adjacent pixels, so the 
pixel below is selected. Otherwise the 
pixel above is closer. When the curve 
has advanced through half its arc (first 
octant) the tendency of motion becomes 
more downward than rightward. Thus 
the algorithm switches its orientation 
to select between horizontally adjacent 
pixels. A negative value for d means 
that the nearer pixel is outside the el- 
lipse. The algorithm steps on a pixel-by- 
pixel basis, assuring an unbroken curve 
on the display. (Gaps sometimes occur 
using the “pure” Bresenham method.) 
The first octant advances the X in each 
iteration and selects the nearest Y. The 
second octant advances by Yand picks 
the appropriate X. The value of d 
changes each time by a pair of values 
called dx and dy by Wilton. The el- 
lipse( ) function implementing this al- 
gorithm (Listing One, page 171) refers 
to them as xd and yd to avoid conflict 
with the virtual coordinate functions. 

The values of xd and yd, using the 
function’s names, are updated at each 
step by values that remain constant for 
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(continued from page 146) 

the duration of the call. These con- 
stants reflect the rate of change in the 
curve, taking into account the tension 
between the X and Y semiaxes. Thus, 
xd and yd maintain a running total of 
the effects of angular motion along the 
curving path. The value of d is con- 
trolled by applying xd and yd, and so 
the sign of d selects the nearest pixel 
to each successive point. 

Because the polynomial constants of 
angular motion are computed outside 
the loop and all values are 16- or 32-bit 
integers, the midpoint algorithm is effi- 
cient while drawing a smooth, unbro- 
ken, and accurate representation of the 
ellipse. 

Want to see? First compile ELLIPSE.C 
and add it to your copy of GRAFIX.LIB 
with the command 


LIB grafix +ellipse; 


Next, add the two prototypes from List- 
ing Two, page 171, to GRAFIX.H. And 
then compile, link, and run CIRCLES.C 
from Listing Three, page 171. It draws 
a true circle and two ellipses. 


Just Partway ‘Round, Thanks 

Graphics literature sometimes explains 
that the term spline derives from the 
loftsman’s spline, a piece of thin flex- 
ible material used to round inside edges. 
The analogy is lost on me inasmuch as 
I don’t know what a loftsman does, nor 
do I care. A more useful analogy is to 
the fanciful curlicued French curves 
used by draftsmen (which is perhaps 
as meaningless to you). At any rate, 
spline is a term often used in computer 
graphics to mean an open curve. 

There are several kinds of splines. 
The simplest is the conic spline, so 
called because it exists inside a trian- 
gular outline (or “hull’”). Conceptually, 
the hull is a V-shaped set of three points. 
The curve itself goes between the two 
end points of the V. As it crosses the 
open space, the intersection of the hull’s 
two sides — the point of the V — at- 
tracts the curve, causing it to bend in- 
ward. The amount of curvature depends 
on the depth of the enclosing cone. 

Figure 1 illustrates a couple of conic 
splines. Note that the points where the 
curve meets the sides of the cone are 
called knots, and the attractor is called 
the control point. As you'll see shortly, 
the orientation of one of the sides 
doesn’t have to be horizontal despite 
what the drawings suggest. 

The curve in Figure 1a bends through 
more than 90 degrees, while that in 
Figure 1b falls somewhat short of a 
quarter-circle. Nevertheless, both curves 
represent one quadrant of an ellipse. 


Figure 2 shows how. Consequently, 


the conic spline isn’t really attracted to 
its control point, but is instead rotating 
around the ellipse’s center. In doing 
so it travels between the opposite cor- 
ners of a parallelogram completed by 
the center and control point. 

So, why not just use the midpoint 
algorithm to plot a conic spline, draw- 
ing only the affected quadrant? Because 
the ellipses defining a spline don’t nec- 
essarily have vertical and horizontal 
axes. Remember, Bresenham imposes 
that as a condition on his ellipses. We 
could draw conic splines with the mid- 
point method, but the sides would al- 
ways have to be at perpendicular an- 
gles. Thus, we couldn’t draw the curves 
in Figure 1. 

The spline in Figure 1a illustrates the 
problem. Two-thirds of the way be- 
tween Knots A and B, the curve bends 
beyond 90 degrees and begins moving 
back in the opposite horizontal direc- 
tion. It started out going right, and now 
it’s going left. If we rotated the whole 
thing, a similar problem would exist 
with going first up, then down, or vice 
versa. The midpoint algorithm simply 
can’t handle this because it expects the 
axes to be orthogonal. 

We need a more capable algorithm. 
That’s what the arc( ) function in ARC.C 
(Listing Four, page 172) provides. This 
algorithm uses fixed point arithmetic 
to approximate floating point without 
the overhead. The fixed point values 
are long integers with a fractional value 
in the lower 16 bits. This accounts for 
the left shifts when setting up the con- 
trol values, and also for the constant 
HALFPI. The arc sweeps through a quar- 
ter-turn, or PI/2 radians, so we calcu- 
late HALFPI as (3.1415927 / 2) << 16, 
which works out to 102,944. 


Control point 


Knot B 
a. Deep conic spline 


Control point 


Knot B 
b. Shallow conic spline 





Figure 1: Examples of conic splines 
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The whole idea of this algorithm is 
somewhat like that of Bresenham, 
though it doesn’t look like it. The val- 
ues vx and vy give offsets for the cur- 
rent point relative to the center of the 
ellipse (x0 and yO). The ux and uy 
variables accumulate angular motion 
as the curve progresses. Because UX, 
vy, and ux, uy interact with each other, 
in effect updating each other’s values 
at the bottom of the loop, the angular 
motion to the right (when drawing Fig- 
ure 1a) gradually slows and eventually 
backtracks. 

Everything depends on the pixel den- 
sity variable called “den,” which pro- 
vides a power of 2 by which to multi- 
ply and divide the control values. The 
sense of this rests upon the effect of 
shifting an integer. Every time you shift 
one bit to the right, you divide by 2. 
Three shifts to the right is division by 
8, four is division by 16, and so on. 
Multiplication by a power of 2 similarly 
occurs when shifting left. 

The algorithm draws a predictable 
number of pixels depending on the 
value of den. When den is 10, it draws 
804 pixels between the knots. The num- 
ber of pixels decreases by half each 
time den decrements by one. In com- 
puting the pixel density factor, then, 
the algorithm determines approximately 
how far the curve has to travel, and 
assigns the appropriate power of 2 to 
control its motion. 

The exact number of pixels needed 
to draw an unbroken curve depends 
on the depth of the cone and the dis- 
tance between knots. The algorithm 
might attempt to write a pixel in the 
same position more than once, so the 
loop tracks the previous position and 
only allows a write when the new posi- 
tion is different; the comparison is com- 
putationally cheaper than a rewrite. 

See, I told you curves aren’t easy. But 
because the conic algorithm uses only 
integers with fractional values in the 
lower 16 bits, it draws splines efficiently. 

Compile ARC.C, then put it into the 
library with 


LIB grafix +arc; 


Now you’re ready to see some conic 
splines in action. 

The first example is CONICS.C in List- 
ing Five (page 172). This program viv- 
idly illustrates the relationship between 








a curve and its enclosing cone. The 
curves are in white, their hulls in red. 

The next example, HANGER.C in List- 
ing Six, page 172, draws a coat hanger 
to demonstrate how conic splines can 
be joined with each other and with 
lines to construct real-world images. 
The secret lies in forming continuous 
joints. You do this by placing one knot 
and the control point on the same plane 
as the line that continues the curve, 
and starting or ending the line at the 
knot. For example, the bottom of the 
hanger is on Y coordinate 260, and its 
right end is at X=500. The right spline’s 
knot is also at {500, 260} and its control 
point similarly lies on Y=260. The re- 
sult is a smooth joint; the spline ap- 
pears to be a continuation of the wire 
that bends around to the right shoulder 
of the hanger. The hook at the top joins 
four conic curves. In each case, the 
joints occur at coincident knots and the 
control points of any two adjacent 
curves lie on the same plane such that 
a line passing through them also passes 
through the common knot. 

The final example, BALL.C in Listing 
Seven, page 172, combines ellipses, 
curves, and floodfills to form the shaded 
3-D image of a ball resting on its 
shadow. This is a brute-force approach 
to shading, a subject that still lies in the 
far distant future of this column, but 
the visual result is the roughly the same. 
The flow of the program should be 
apparent; the message is that we have 
now reached the point of being able 
to produce reasonably good graphics 
with the tools developed here. 

Forty-two more miles of curves to 
go. Time for a rest stop. 


Kent completed this installment of his 
“Graphics Programming’ column 
shortly before he passed away. Even 
though the series will end with this 
issue, we'd like to hear how you're us- 
ing some of the ideas Kent's introduced 
in this space. Drop us a note about 
your program or, better yet, write an 
article and share your applications with 
others. — eds 


DDJ 


(Listings begin on page 171.) 
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Figure 2: A conic spline is one quadrant of an ellipse 
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Think about it — 
Some experts estimate there are as 
many as ten illegal copies for every 
legitimate software package sold. 
Suppose you sold 1000 copies of a 
$500 program, and only two copies 
were pirated for each one sold— 
You're out a million bucks! 


Micro Security Systems, Inc. 
can help you keep your profits with 
a hardware lock called SecuriKey. 
SecuriKey has protected major soft- 
ware products in domestic and risky 
foreign markets for over six years. 
With eight styles to choose from 
there is a SecuriKey designed to meet 
your specific needs. 


SecuriKey Features: 


e Works on all IBM and compatibles 

e Works with LAN and hard disks 

e Allows unlimited back up copies 

e Passive to printers & other programs 
e Easy to install 

e Trillions of possible combinations 


e No static problems 
e Works with printer on or off 


Call Today—(800) 4 LOCK UP 


(800) 456-2587 






“micro 
y security. 
syStems, inc. 


Micro Security Systems, Inc. 
4750 Wiley Post Way, Suite 180 
Salt Lake City, Utah 84116-2878 

(801) 575-6600 
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STRUCTURED PROGRAMMING 


Thinking Big, 
Talking Small 


here’s a definition of the word 

“legendary” that I favor: Some- 

thing that everybody talks about 

but which has never had any ba- 
sis in fact. (The legendary Loch Ness 
monster comes to mind, as wellas that 
legendary IBM service and support.) 
There’s a computer language that comes 
perilously close to being legendary, and 
that language is the (almost-legendary) 
Smalltalk. 

Amidst the dusty stacks of computer 
magazines filling my two walls of Hun- 
davad bookshelves is the October 1980 
issue of the late and lamented Creative 
Computing. On the cover is a Hallow- 
een witch boarding her broomstick, 
cackling in a cartoon balloon: “Come 
with me on a journey to the mysterious 
world of Smalltalk!” Such is the stuff 
of which legends are made. 

Though it tried gamely, Creative Com- 
puting did little to chase the smoke 
surrounding the language. At best, they 
made it sound like an infix Forth with 
a graphics user interface, and that comes 
closer to the truth than the PARC folks 
would care to admit. The problem was 
that Ted Nelson and the other gurus 
of the time were so taken by the ivory 
tower PARC mystique and the dazzlingly 
precocious Xerox graphics workstations 
that they mistook the user interface for 
the language, muttered things about 


Jeff Duntemann, Ki6RA 


animation scripts and notebook-sized 
Dynabooks, and never really got around 
to answering the serious question: Why 
is Smalltalk special? 

It is special because it is the ultimate 
object-oriented language. It was easily 
15 years ahead of its time in many 
ways, and now that a world — scream- 
ing for Object-Oriented Anything 
(OOA) — is ready for Smalltalk, the lan- 
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guage revealed falls far short of the 
mystical, magical otherworldliness that 
ten years of yearning have coated it 
with. If you’ve never actually got down 
and hacked in Smalltalk, what I’d like 
you to do is adopt the Firesign Theater 
attitude toward it: Everything you know 
is wrong. I’m going to try to explain 
Smalltalk from the other direction —as 
a perfectly ordinary language within a 
perfectly remarkable framework — and 
in the process take a stab at showing 
you what object-oriented programming 
is about. 


At the Language Nudist Park 

You'd recognize Smalltalk if you ran 
into it at the language nudist park, 
stripped bare of overlapping windows 
and mouse cursors and all that other 
folderol. Here’s an assignment state- 
ment in Smalltalk: 


fudgeFactor := 42. 


Man, it’s just like back home in Pas- 
calville! A numeric variable called 
fudgeFactortakes on a value of 42. The 
period is the local equivalent of Pas- 
cal’s notorious Gf not legendary) semi- 
colon, and indicates the end of a state- 
ment. Like Pascal and C and Basic and 
all but the most bizarre languages like 
Prolog, a Smalltalk program is nothing 
more than a series of statements that 
do something in sequence. 

Smalltalk, it seems, has everything 
all the other languages have, and most 
of its parts look familiar in an odd, 
polyglot kind of way. Generating the 
character equivalent of an integer is 
done this way: 


68 asCharacter 
Excuse me, Mr. Forth... no, it really 


is Smalltalk, and Smalltalk at the lowest 
level is just another collection of rail- 
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road diagrams, like any language you 
could name. The syntax is new, but the 
concepts are utterly traditional. If you’re 
looking for a FOR loop, look no further: 


4 timesRepeat: [ 
Turtle 
go: 100; 
turn: 90] 


Smalltalk sets off compound statements 
within pairs of square brackets, just as 
in Pascal we use BEGIN/END and in C 
//. Saying 4 timesRepeat: [ /is just about 
precisely equivalent to FOR I := 1 TO 
4 DO BEGIN END. Nothing magical or 
legendary about that at all. 


The Message is the Medium 
Yet another reason Smalltalk leans to- 
ward the legendary is that the PARC 
people, in designing it, made up new 
names for many traditional computer 
science concepts. What in most lan- 
guages we'd call passing parameters 
in Smalltalk is called “passing messages.” 
The distinction makes sense once you’ve 
grokked the fullness of the language, but 
for newcomers the term message pass- 
ing promises more exotica than it deliv- 
ers, and the result is gross confusion. 
Here’s why: The Smalltalk expres- 
sion mentioned earlier, 68 asCharacter, 
returns the ASCII character ‘D.’ How- 
ever, in the Smalltalk jargon, what is 
happening is that a message called 
asCharacter is passed to the value 68. 
The value 68 responds by sending back 
a message consisting of the value ‘D.’ 
Does this confuse you? It sure con- 
fused the hell out of me when I first 
encountered it. In Pascal you’d pass 
the value 68 to the standard function 
Chr (as in Chr(68)) and the standard 
function would return the value ‘D.’ In 
Smalltalk, it seems like you pass the 
procedure to the parameter, rather than 
the other way around. Bizarre? No more 
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Order now ky calling our toll free 
number or mail the coupon to: 


Mix Software 
1132 Commerce Drive 
Richardson, TX 75081 


1-800-333-0330 


60 Day Money Back Guarantee 

Not Copy Protected m Royalty Free 

For technical support, please call: 
1-214-783-6001 


The C/Database Toolchest™ 
adds sophisticated file manage- 
ment functions to your Power C™, 
Turbo C®, QuickC®, or Microsoft® C 
compiler. With the C/Database 
Toolchest™ , your data requires 
much less disk space than with 
programs like dGBASE®, and you 
can access your data much faster. 
Of course the full power of C 
provides you with an unlimited 
amount of programming flexibility. 

The C/Database Toolchest™ 

includes three major components: 

1) An advanced B+tree library 
gives you instant access to your 
data. 

2) A high-level ISAM library 
provides you with an easy-to-use 
C interface, and € 
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Turn your favorite 
C compiler into a 
powerful database 
manager with the 


Jatabase Toolchest 


3) A complete database manager 
(with C source code included) 
shows you how to create impres- 
sive applications. 

You also receive a comprehen- 
sive 350 page manual and a utility 
for converting dBASE® files. 

The C/Database Toolchest™ 
supports features that you'd expect 
to find only in products costing ten 
times as much. Advanced features 
include variable length records, 
variable length keys, multiple keys 
per index, and multiple indexes 
stored in a single file. Your data files 
can contain an unlimited number of 
records, and each record can be as 
large as 32K bytes in length. 

About the only thing that the 
C/Database Toolchest™ doesn't 
do is cost you a lot of money. 
We've kept our price low so you 
can manage your budget as easily 
as your data. 


Now Only $19.95! 





| Order Coupon | 
Name 
Stree 
ON 
State” ZIP 
Telephone 


| | 
| | 
| | 
| | 
| Paying By _— Money Order___Check | 
| ____Visa___ MC __ AX___ Disc. | 
Card# eee 

| EXO, 006 | 
| | 
| | 
| | 
| | 
| | 
| | 














Disk Size__ 5," 31/," 
Qty. Product _ 7 | _ Price _ Subtotal 
—_._—C C-/Dattabase Toolchest........... $19,95> | ——_— 
C/Database Library Source.. $10.00 = 
B+tree & ISAM library source code 
Add Shipping ($5 USA, $20 Foreign)............. ee 
Texas Residents Add 8% Sales Tax................ ees 
Total Amount of Your Orde..................000e D | 


C/Database Toolchest and Power C are trademarks of Mix Software. QuickC and Microsoft C are registered trademarks of Microsoft. Turbo C is a registered trademark of Borland. dBASE is a registered trademark of Ashton- Tate. 
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POWER GRAPHICS FOR YOUR PC! 


MetaWINDOW 


Product of the Month | 
“Awarded for excellence in product | 
design and development” : 


Developing a graphics application? Move to the 
peak of performance and graphics functionality 
with MetaWINDOW! Built on state of the art 
“object oriented” display flexibility, now you can 
take advantage of powerful advanced graphics 
capabilities like those used on the Macintosh, Sun 
and Apollo workstations. Using MetaWINDOW 
you can break the bottleneck between limited 
function low-level graphic primitive libraries and 
slow, bulky hard-coded window managers. 


MetaWINDOW provides an advanced set of 
graphic drawing functions, dynamic runtime 
support for a full range of graphic peripherals, plus 
unmatched performance for designing multi- 
window desktop applications. 


| PC Tech Journal, Jul '85 
_| Product of the Month - “... a technological 
tour de force for fast PC graphics.” 
“.,. one high-powered piece of artillery.” 


_| Computer Language, Oct '87 - 

_| “... surprisingly powerful for the cost.” 
Independently benchmarked the fastest of all 
graphics systems reviewed - faster than 
Halo, over 3 times faster than GSS*CGI. 


_| Turbo Technix, Feb '88 

_| “... Customer support is excellent. I've called 
Metagraphics several times and have gotten 
prompt, accurate help each time. Metagra- 
Phics has a winner with TurboWINDOW.” 


NO ROYALTIES! 


J. Kayser, CMSI - 
“MetaWINDOW is the best graphics package 


I've seen. Since I bought my PC, I've spent over } 


$2500 on software. I've bought bad software, 


mediocre software, and good software. There's ¥ 


not much software I call excellent, but 
MetaWINDOW is excellent!” 


David Gray, LUCAS LABS - 

“IT would also like to take this time to 
compliment you on providing such a fantastic 
graphics package. We have used several 
packages previously including Turbo graphics 
and Halo graphics and found none that 
compare to the versatile, high performance 
graphics package that your company offers. W 
have also found your technical support staff to 
be one of the best we have ever dealt with.” 





John Weaver, Chairperson 

Department of Mathematical Sciences 

WEST CHESTER UNIVERSITY - 

“We have been using MetaWINDOW for our 
graphics instruction for the past several 
semesters and are pleased with the package. 
This past summer we upgraded one system to 
MetaWINDOW version 3 and were so 
impressed that we want to upgrade all systems 
prior to the Spring semester. This is a first class 
package and I think it is the best for teaching 
computer graphics.” 


MetaWINDOW - $195 
Advanced Graphics Development Toolkit 
MetaWINDOW comes complete with language 


| bindings for 20 popular C, Pascal and Fortran 

{ compilers, plus dynamic runtime support for over 
1 80 graphics adaptors and input devices. 

| 4 disks, 3 260 page manuals 


TurboWINDOW/C - $95 


| TurboWINDOW/Pascal - $95 
| QuickWINDOW/C - $95 


Macintosh QuickDraw function superset - 
simplifies porting PC & Mac applications. 
PostScript & X-Window compatible 
drawing attributes - the defacto graphics 
standard for PC X-Window servers. 
Supports both bitmap and outline fonts - 
dynamically face fonts for bold, italic, 
underline or strike-out effects. 

Full 16 function “rasterOp” flexibility - 
easily write, erase, rubberband or 

drag: lines, text, icons, bit images 

and complex objects. 

Dynamic recognition and run-time 
support for 80+ popular graphics cards - 
eliminates multitudes of clumsy device 
drivers and bothersome configuration 
sessions - true device independence at last! 
Virtual images - create and manipulate 
graphic images in local or expanded 
memory up to & megabytes in size. 

... and the list goes on! 


| All the features of MetaWINDOW for Borland 
7 Turbo C, Turbo Pascal or Microsoft C. 


NEW - FontWINDOW - $95 
MetaWINDOW font/icon editor plus 100 fonts. 


NEW - MetaWINDOW/Premium - $495 
Power graphics for new high-res, high performance 
T134010 based graphics cards! 


(Licensing required for redistribution of MetaWINDOW/Premium) 


30 Day Money Back Guarantee 


ORDER TODAY! 800-332-1550 
For information or in CA call 408-438-1 550 
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STRUCTURED PROGRAMMING 


(continued from page 154) 
so than Forth, and some of my best 
friends use Forth all the time. 

Forth uses postfix notation (“reverse 
Polish” — now there’s a legend for you!) 
because it serves the pathologically stack- 
centered architecture of the Forth lan- 
guage. Smalltalk uses its message-pass- 
ing notation because message passing 
serves the architecture of Smalltalk, 


You'd recognize 
Smalltalk if you ran into 
it at the language 
nudist park, stripped 
bare of overlapping 
windows and mouse 


cursors and all that 
other folderol 


which, like Forth, differs from that of 
Pascal, C, and Basic. The thing to re- 
member is that, like Forth, everything 
about Smalltalk makes perfect sense if 
you take it in the spirit of the language. 

On a statement level, then, Smalltalk 
is just a variation On a common theme. 
The uncommon aspects of Smalltalk 
appear when it starts to put its clothes 
back on. The magic is in the frame- 
work, not the syntax. 


Who’s the Boss? 

Smalltalk’s architecture is not easily de- 
scribed in the legendary 25 words or 
fewer. I like a challenge, so I'll try. 
These are Smalltalk’s three architectural 
principles: 


1. Data Is Boss. 

2. Data Knows What To Do. 

3. Data Bequeaths es It Has 
To Its Children. 


First of all, Data Is Boss. To Pascal pro- 
grammers, Data Is Clay, and we spend 
all our time fiddling up code-ish wid- 
gets to squeeze, shape, spindle, and 
mangle that data. Smalltalk moves data 
to center stage. We tend to think of a 
Pascal program as a series of code- 
clumps passing control from one to 
another. Data gets passed around as 
well, passively being beaten about the 
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ears and pounded into new shapes 
and sizes. In a Smalltalk program, the 
active parties are not sequences of code 
but items of data. 

Weird? Well, consider . . . what’s the 
more valuable and lasting entity: The 
act of a dog barking or the dog itself? 
As Confucius might say: There is still a 
dog even when the dog is silent. Small- 
talk leans toward a philosophy which 
says: Mind the dog, and the bark will 
take care of itself. 


When is Data More than Data? 

This is why the statement 68 asCharacter 
is seen as a message being passed to a 
data item. The data item is the active 
party, because Data Knows What To 
Do. Data in Smalltalk is more than data. 
For every data item in Smalltalk, there 
is a list of actions that the data item can 
take. One of the things that a number 
knows how to do, for example, is to 
convert itself to an ASCII character and 
pass the character back as a message. 
That’s what the number 68 does when 
it receives the message asCharacter. 
Other messages (three out of a great 
many) that an integer value understands, 
and can respond appropriately to, are: 


e factorial — The value calculates and 
returns its own factorial 

e reciprocal — The value divides itself 
into 1 and returns its own reciprocal 

e negated — The value subtracts itself 
from 0 and returns its negated value 


These may look and sound like proce- 
dures to you, and they are in fact the 
“code” portion of a Smalltalk program. 
But the critical difference is this: They 
are considered to be part of the integer 
value. You cannot somehow reach in 
and pull a procedure called factorial 
out of an integer value. The two are 
welded together at the hip, hand in 
hand together for all time, forever and 
ever amen. 

This more-than-data concept in Small- 
talk has its own name, and that name 
is object. An object in Smalltalk is a 
piece of data and the things it knows 
how to do. 

This is only weird for the first 13 
minutes you think about it. (I timed it.) 
Why weld the code to the data? Easy: 
To keep the code out of trouble. Can 
a dog whistle? Can a teakettle bark? 
No. Yet we Pascal guys get in trouble 
with the compiler all the time, trying 
to pass character values to the Abs stan- 
dard function, trying to take the cosine 
of True, things like that. Matching data 
types to code that can legally manipu- 
late data of that type is lots of trouble — 
so Smalltalk ends the problem by glu- 
ing the two together. 
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Those actions an object can take in 
response to messages are called “meth- 
ods.” Every object has its crisply-de- 
fined suite of methods. And in Small- 
talk, everything (bar nothing!) is an 
object. 

This is what I was hinting at when I 
implied that Smalltalk statements looked 
normal — until they started putting their 
clothes on. The arithmetic expression 
17 + 42 looks the same in Basic, For- 
tran, Pascal... and Smalltalk. However, 
through Smalltalk-colored glasses, this 
is what’s really happening: The + mes- 
sage (arithmetic addition) is sent to the 
value 17. Hot on the heels of the + 
message is an argument — in this case — 
the value 42. The + message tells 77, 
“add yourself to the next thing coming 
your way, and return the sum.” The 
next thing down the pike is the value 
42. 17 adds itself to 42, and sends the 
value 59 back out again. 

The value 59 is an object too. So, if 
you have something like this: 


(17 + 42)*3 


Smalltalk sees it as sending the + mes- 
sage and the argument 42 to the value 
17, and then sending the * (arithmetic 
multiplication) message and the argu- 
ment 3 to the value 59, which was 
obligingly returned by the 77. 

Cynics might argue that this is all 
word play, and that an arithmetic ex- 
pression is an arithmetic expression, 
not a bunch of numbers playing ping- 
pong with plus signs. And I'd have to 
admit, it is word play — just as any 
computer language is an interplay of a 
set of symbols, a set of syntactic rules, 
and a semantic architecture. Smalltalk 
uses standard symbols (unlike some 
truly weird languages like APL) and a 
familiar set of syntactic rules. What’s 
different is the semantic architecture — 
but if you refuse to accept that archi- 
tecture at face value, you’re not playing 
by the rules, and I can only advise you 
to go sit in the corner. 


My Object All Sublime 

A lot of Smalltalk’s reputation for weird- 
ness comes from this tendency to an- 
thropomorphize things like integer val- 
ues. Objects know what to do — their 
suite of methods is the collection of 
things they can accomplish — and they 
do what they do in response to mes- 
sages sent to them. One conjures up 
visions of a little purple number 7 read- 
ing a telegram and doing some quick 
pocket calculator work before sending 
a sum back by return wire. Just as we 
sometimes use the metaphor of a stack 
of china plates when speaking of stack- 
oriented languages like Forth, in Small- 
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a professional menu system 
in a graphics environment for 
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Borland Graphics Interface 


raphics-MENU from ISLAND SYSTEMS is 
a comprehensive utilities package that al- 
lows the developer of graphics software 
applications to quickly create a user- 
friendly interface. You can spend more 
time focusing on the internals of your ap- 
plication. 


¢ Mouse handling. 
Keyboard support for most menu types. 
Pulldown Menu & Popup messages. 
Underlying graphics automatically saved. 


Mouse can drag menu/message to reveal 
image beneath. 


Vertical List optionally titled. 
Horizontal list with corresponding 
pulldown menus that may have nested sub- 
menus to any depth. 


Popup message boxes with or without 
user prompt. 


Button menus in any arrangement. 
Controls & guages with analog style entry. 


Analog clock set- 
table by moving 

its hands with the 
mouse. 

Limitless hybrids 
of the above menus 
for customization. 


Geometric inter- 

face functions: 

point rotation, dis-_ 

tance, degrees / radians conversion, true 
4-quadrant arc tangent. 


ee 

We are also including two utility 
programs: CUREDIT and MenuDesigner. 
CUREDIT is a Cursor icon Editor that 
enables you to create custom cursor icons 
and associate them with any mouse button 
or chord. MenuDesigner is a very powerful 
utility that enables you to create and view 
complex horizontal / vertical menu _struc- 
tures on-screen and then writes TP, or 
TC/MS-C code to implement this struc- 
ture in your application program. 


**MenuDesigner includ ith Metagraphics version. Add $49 t 
BOL version for Menu signer oo . 


Requires: BGI or MetaWindow* (MetaGraphics Software 
Corp.), IBM or close compatible with graphics, mouse (Sug- 
gested), hard disk. Ask about other compiler options. 

30 day money-back guarantee on non-source. 


~~ 


~ 


Island Systems 


7 Mountain Rd. 
Burlington MA 01803 
(617) 273-0421 
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UniForum/Boston = & 
August 22 — 24, 1989 
Hynes Convention Center ;! 
Boston, Massachusetts x 


aaa e 
ays 
ara 
20 Full- and Half-Day Tutorials . . . will provide the in-depth = {rg@A"\4 
coverage, analysis and insights you need to gain maximum roUras _: 
advantage from the UNIX system. Daily luncheons, with ANE 
prominent keynote speakers, and class note booklets all Fata 
are part of the UniForum/Boston tutorial program. ies 
ft iey 
UNIX System Complimentary Workshops . . . also will be cM 
presented daily during UniForum/Boston. These 90-minute ha 
introductory sessions, free to all attendees, will supply the ive 
basic background information you need to better understand Oy 
and utilize the UNIX system. hae 
2:. 
UNIX System Answers... also will be available from more PRA: 
than 100 suppliers during UniForum/Boston. You'll see Rae 
exhibits of the latest in UNIX system hardware and software AAA 
products and services — featuring networking, multi-tasking, EECA TIE: 
portability, connectivity and integration. AMES 
Save Time and Money — Register Today! eee 
pile siae) 


Call 800-323-5155 for complete information. Laie 
PETAR 
*% 


(512-299-3131 in Illinois and Canada) So 
ee 


Or Write: UniForum/Boston 
2400 East Devon Avenue ° Suite 205 


Des Plaines, Illinois 60018 


wat, Sponsored by ew US/Qroup 


one 
The International Network of UNIX Systems Users 
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(continued from page 157) 
talk we use the anthropomorphic zap 
on inanimate (nay, disembodied) enti- 
ties like forty-twos and screen windows 
and text editors. It’s a mnemonic de- 
vice to remind us that data now runs 
things and takes action through the 
code, and not the other way around. 
The anthropomorphic metaphor was 
stronger in the old days, when lan- 
guages like Smalltalk were called actor 
languages because objects were seen 
as actors, each performing a script on 
cue. The term “actor” has fallen into 
disuse except in academe and in the 
title of another object-oriented language 
that I’ll deal with in a future column. 
No, the term at the center of the 
maelstrom these days is object. An ob- 
ject is the same concept in Smalltalk, 
Actor, C++, or the new Quick Pascal 
and Turbo Pascal 5.5: A data structure 
consisting of some number of fields 
(rather like the fields of a record) bound 
up with a suite of procedures that act 
on or with those fields in performing 
the work that the object must accom- 
plish. 


Bugs Sealed in Amber 

This welding together of code and data 
is called “encapsulation.” In Smalltalk 
the term is quite literal: An object’s 
fields (called “instance variables” in Small- 
talk jargon) are so thoroughly encapsu- 
lated within the object that other ob- 
jects cannot directly perceive them. The 
closest familiar analog is the implemen- 
tation section of a Pascal unit, where 
data can be defined that cannot be 
perceived from outside the unit, but 
only accessed by the code contained 
in the unit. 

Smalltalk enforces this as strictly as 
Pascal units do. Only an object’s meth- 
ods may even know the names of an 
object’s instance variables. To read the 
value of some instance variable, a 
method must be defined to return a 
copy of that instance variable, and a 
message must be sent to the object 
requesting a copy of that variable. No 
method, no copy, no knowledge that 
the instance variable even exists! 

Now that’s encapsulation. 

Other object-oriented languages, as 
I'll explain in later columns, do not 
erect quite such impenetrable walls 
around their object’s inner fields. The 
reason is pretty simple: Speed. Small- 
talk imposes a tremendous amount of 
overhead in enforcing encapsulation. 
The benefits are significant — side ef- 
fects and “sneak paths” almost literally 
cannot exist in Smalltalk code — but 
the costs in performance are high. 

Encapsulation in Smalltalk is rather 

(continued on page 164) 
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Introducing the editor 
that’s as good as you are 


Infinitor puts new creative power in your hands and opens up editing 
possibilities ad infinitum. 


Infinitor’s powerful TPL™ Text Processing Language lets you emulate 
EMACS, VI or your favorite editor. Perform complex text processing 
functions. Compile while inside the editor. And create your Own on-line 
references and commands. 


Its Nimble Windows™ lets you edit 10 files at once without shuffling 
between files. You can select, size, position and split windows at a 
keystroke. 


You also get unlimited file size, re-configurable keyboard, auto indent, 
block manipulation, search and replace, restore line, on-line help and 
more. All for $150, with a money-back guarantee. 


Isn‘t it time you had the editor that’s as good as you are? Order now. 
1-800-526-5368 

































For IBM PCs or 
compatibles with 384K 
or more, 5.25 
inch format. 


AGRANAT SYSTEMS 
PO Box 4415 
& Brockton, MA 02401-4415 
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KEDIT 4.0 
NEW TEXT EDITING POWER 


KEDIT is a powerful, general purpose 
text editor for the IBM PC, PS/2, and 
compatibles that supports the editing 
of multiple ASCII files in multiple win- 
dows, sophisticated block move and 
copy operations, and reprogram- 
mability of the keyboard through 
keyboard macros. The latest version, 
KEDIT 4.0, provides these new features: 


mEMS expanded memory support 
that allows editing of larger files. 

m Selective line editing capabil- 
ity compatible with XEDIT’s ‘ALL’ 
command. 

m Enhanced programmability with 
improved interfaces to Mansfield’s 
Personal REXX macro processor and 
a built-in REXX subset (KEXX). 


g IBM VGA and Enhanced Keyboard 














support. 
(203) 429-8402 Proven in operation since 1983, KEDIT 
is unique in its support of many of the 
KEDIT Version 4.0 is available at commands and features found in 


Oe iocna. Me. VGA sna XEDIT, IBM’s mainframe text editor for 


Express. the VM/CMS system. Versions of KEDIT 
KEDIT is a trademark of the Mansfield Software 4.0 are available for both DOS and 
Group, Inc.; IBM and IBM PC and PS/2 are trade- 

marks of International Business Machines. OS/2. 
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BOOKS TO PROMOTE YOUR 


PROGRAMMING SKILLS 





Dr. Dobb’s 
Toolbook 
of C 





by the Editors of Dr. 
Dobb’s Journal of 
Software Tools 


Over 700 pages of the best C 
articles and source code from 
Dr. Dobb’s Journal of Soft- 
ware Tools are in a single 
book! Not just a compilation 
of reprints, this comprehen- 
sive volume contains new 
materials by various C experts 
as well as updates and revi- 
sions of some older articles. 

The essays and _ articles 
found within this virtual ency- 
clopedia of information were 
designed to give the profes- 
sional programmer a deeper 
understanding of C by ad- 
dressing real-world program- 
ming problems, and how to 
use C to its fullest. 

Some of the highlights in- 
clude an entire C compiler 
with support routines, ver- 
sions of various utility pro- 
grams such as Grep, and a C 
program cross-referencer. 

Dr. Dobb's Toolbook of 
C is an invaluable resource 
that you’ll turn to again and 
again for an in-depth appre- 
ciation of C. 


Book only 
Item #615-3 $29.95 





Fractal 
Programming 
in C 





by Roger T. Stevens 


Fractals are the visual representation of “chaos”, the 
revolution that is currently sweeping through all 
fields of science. Fractal Programming in C is a 
comprehensive “how to” book written for program- 
mers interested in fractals. Learn about reproduc- 
ing those developments that have changed our 
thinking about the physical sciences, and in creat- 
ing pictures that have both beauty and an underly- 
ing mathematical meaning. Included are over 100 
black and white pictures and over 50 color pictures. 
All source code to reproduce these pictures is 
provided on disk, MS-DOS format. Requires PC or 
clone with EGA or VGA and color monitor; Turbo 
C, Quick C or Microsoft C compiler. 


Book & Disk 

Item #038-9 $39.95 
Book only 

Item #037-0 $24.95 





* Also available at your local bookstore. 
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Graphics 
Program- 
ming in C 





by koger T. Stevens 


Graphics Program- 
ming in C details the funda- 
mentals of graphics program- 
ming for the IBM PC family 
and its clones. All the informa- 
tion you need to program 
graphics in C, including 
source code, is presented. 
You can either use the in- 
cluded graphics libraries of 
functions as is or modify them 
to suit your own require- 
ments. 

Inside, you'll find com- 
plete discussions of ROM 
BIOS, VGA, EGA, and CGA 
inherent capabilities; meth- 
ods of displaying points on a 
screen; improved, faster algo- 
rithms for drawing and filling 
lines, rectangles, rounded 
rectangles, polygons, ovals, 
circles, and arcs; graphics 
cursors; and much more! 

Graphics Program- 
ming in C carries a complete 
description of how to put to- 
gether a graphics library and 
how to print hard copies of 
graphics display screens. 
Both Turbo C and Microsoft C 
are supported. 


Book & Disk (MS-DOS) 


Item #019-2 $39.95 
Book only 
Item #018-4 $24.95 


THE PREMIER C SOURCE 


THE ART OF 
Advanced Progenm Design, 
Onrimization, and Debugging 
SYEPHER ©. DAMS 





Turbo C 
The Art of Advanced 
Program Design, 
Optimization, and 
Debugging 





by Stephen R. Davis 


Packed with useful example programs, 
this new and improved book details the 
techniques necessary to skillfully pro- 
gram, optimize, and debug in Turbo C. 
Every Turbo C topic and feature is fully 
demonstrated in Turbo C source code ex- 
amples. 

Starting with an overview of the C 
language, the author advances to topics 
such as pointers, direct screen I/O, inline 
statements, and how to intercept and 
redirect BIOS calls, all of which are dem- 
onstrated in a RAM resident pop-up 
program written in Turbo C. 

Fully outlined are the differences 
between Unix C and Turbo C the transi- 
tion from Turbo Pascal to Turbo C and 
the superset of K&R C features imple- 
mented in the proposed ANSI C standard. 

Whether you are a C programmer 
interested in investigating this exciting 
new dialect of the language or a Turbo 
Pascal programmer who is curious to 
learn more of this C language, Turbo C 
is must reading! 


Book & Disk (MS-DOS) 

Item #45-3 $39.95 
Book 

Item #38-0 $24.95 





BRST 





C Chest 
and Other C 


Treasures 
from Dr. Dobb’s 
Journal 





edited by Allen Holub 


This comprehensive anthology contains 
the popular “C Chest” columns from Dr. 
Dobb’s Journal of Software Tools. 

For the novice and experienced C 
programmer alike, C Chest and Other 
Treasures will prove to be an invalu- 
able resource, providing hours worth of 
information to be learned and applied. 

Just some of the many topics detailed 
are: pipes, wild-card expansion, and 
quoted arguments, sorting routines; 
command-line processing; queues and 
bit maps; ls, make, and other utilities; ex- 
pression parsing; hyphenation, an Fget 
that edits; and more! 

Also included are several information- 
packed articles written by well-known C 
experts. Learn about a flexible program 
that allows you to find the minima of 
complex, multiple dimension equations; 
cubic-spline routines that provide an 
efficient way to do a more restrictive 
curve-fitting application; and an fgrep 
program that resurrects a very efficient 
finite machine-based algorithm that can 
be used in any pattern-matching algo- 
rithm! 

C Chest and Other C Treasures 
provides a collection of useful subrou- 
tines and practical programs written in C, 
and is available on disk with full source 
code. 


Book & Disk (MS-DOS) 

Item #49-6 $39.95 
Book only 

Item #40-2 $24.95 


sane mite * 


A Guid 


to 
Programming the DESQview 


Multitasking Environment 





DESQview: 

A Guide To 
Programming the 
DESQview Multitasking 
Environment 





by Stephen R. Davis 


DESQview: A Guide to Programming 
the DESQview Multitasking Environ- 
ment provides users with the informa- 
tion they need to get the most out of 
DESQview. Discussed are the object- 
oriented DESQview 2.0 Application Pro- 
gram Interface (APD and the multitasking 
concepts necessary to program the 
DESQview environment. For C program- 
mers, this book allows you to access the 
API environment from C. Since 
DESQview embodies almost all of the 
capabilities of OS/2, C programmers are 
allowed access to multitasking, rudimen- 
tary interlink communication, window- 
ing handled by the operating system, and 
some dynamic link capability. 

DESQview: A Guide to DESQview 
Multitasking Environment is fully en- 
dorsed by Quarterdeck Office Systems, 
publisher of DESQview. Optional disk 
contains example programs. 


Book & Disk (MS-DOS) 


Item #006-0 $39.95 
Book only 
Item #028-1 $24.95 





* Also available at your local bookstore. 
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Compiler 


A Small C 
Compiler: 
Language, 
Usage,Theory, 
and Design 





by James E. Hendrix 


A Small C Compiler contains 
a full presentation of the de- 
sign and operation theory of 
the Small C compiler and pro- 
gramming language. This 
book provides an excellent 
example for learning basic 
compiler theory as well as a 
full, working Small C com- 
piler. Features include code 
optimizing, internal use of 
psuedo code, upward com- 
patibility with full C, recursive 
descent parsing, a one pass 
algorithm, and the generation 
of assembly language code. 
The optional diskette  in- 
cludes an executable com- 
piler, fully documented 
source code and many 
sample programs. A Microsoft 
or IBM Macro Assembler is 
required. 


Book & Disk (MS-DOS 


Item #97-6 $38.95 
Book only 
Item #88-7 $23.95 


Small 


Assembler: 
A Macro 
Assembler 


Written in 
Small C 





by James E. Hendrix 


Small Assembler is a full 
macro assembler which was 
developed primarily for use 
with the Small C compiler. In 
addition to being a full assem- 
bler that generates standard 
MASM compatible .OBJ files, 
the Small Assembler is writ- 
ten in Small C. It provides an 
excellent example for learn- 
ing the basics of how an as- 
sembler works. The Small 
Assembler generates .OBJ 
files for all 80x86 processors, 
and will easily adapt to future 
Intel processors. 

The manual provides an 
overview of the Small Assem- 
bler, documents the com- 
mand lines that invoke pro- 
grams and provides appendi- 
ces and reference materials 
for the programmer. The ac- 
companying disk includes 
both the executable assem- 
bler and full source code. 


Manual & Disk 
Item #024-9 $29.95 





Small 


Windows: 
A Library of 
Windowing 
Functions for 
the C Language 





by James E. Hendrix 


Small Windows is an exten- 
sive library of C language 
functions for creating and 
manipulating display win- 
dows. The manual and disk 
package contains 41 window- 
ing functions that allow you to 
clean, frame, move, hide, 
show, scroll, push and pop- 
up menus. 

A file directory illustrates 
the use of window menu 
funcitons and provides file 
selection, renaming and dele- 
tion capability. Two test pro- 
grams are provided as ex- 
amples to show you how to 
use the library and the win- 
dow, menu and _ directory 
functions. Small-Windows is 
available for MS-DOS. sys- 
tems, and Microsoft C ver- 
sions 4.0-5.0, Turbo C 1.5, 
Small-C and Lattice C 3.1 
compilers. Documentation 
and full source code included. 


Manual & Disk (MS-DOS) 
$29.95 


Item #35-6 





Small 
Tools: 


Programs for 
Text Processing 





by James E. Hendrix 


This package of programs 
performs specific, modular 
operations on text files such 
as editing, formatting, sorting, 
merging, listing, printing, 
searching, changing, translit- 
erating, copying, and 
concantenating. Small-Tools 
is supplied in source code 
form. You can select and 
adapt these tools to your own 
purposes. Documentation is 
included. MS-DOS. 


Manual & Disk (MS-DOS) 
$29.95 


Item #02-X 





* Also available at your 
local bookstore. 
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C Programming for MIDI 





by Jim Conger 


Outlined are the features of MIDI and its support of real-time 
access to musical devices. An introduction to C programming 
as they relate to MIDI is provided. These concepts are fully 
demonstrated with two MIDI applications: a patch librarian and 
a simple sequencer. Some of the fundamental MIDI program- 
ming elements you'll learn are: full development of a patch li- 
brarian program, sequencing applications for the MPU-401 
interface, how to create screen displays, and how to write low- 
level assembly language routines for MIDI. All programs are 
available on disk with full source code. Supports both Micro- 
soft C and Turbo C. 


$37.95 
$22.95 


Item #90-9 
Item #86-0 


Book & Disk (MS-DOS) 
Book only 


To ORDER: Return this coupon with your payment to M&T Books, 501 Galveston Drive, Redwood City, 
. (In CA call 1-800-356-2002). 


| CA 94063. Or CALL TOLL FREE 1-800-533-4372 
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Address 
City 
OAC ee I 
L] YES! I want to take advantage of the Small C 
Special! 


(_] Please send me what I have listed below: 
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Subtotal 

CA residents add sales tax 
Shipping and handling add 
$2.99 per item 


| Total 
| Foreign orders add $7.60 per item; add $12 surface mail for Small C 
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MIDI Sequencing in C 
by Jim Conger 


Picking up where the popular C Programming for MIDI left 
off, MIDI Sequencing in C approaches the recording and play- 
back of MIDI data from the perspective of both users and pro- 
grammers. For users, the optional source code disk provides a 
ready-to-run 8-track MIDI sequencer with full editing features. 
For programmers, all source code for the MT sequencer/editor 
is provided along with full documentation of each function. The 
MT sequencer runs on IBM PC- and AT- type computers using 
the Roland MPU-401 MIDI interface (or equivalent). CGA, EGA, 
and VGA standards are supported. Both Microsoft C and Turbo 
C compilers are supported. 


$39.95 
$24.95 


Item #046-X 
Item #045-1 


Book & Disk (MS-DOS) 
Book only 


For Small Windows, indicate: 

L_] Microsoft version 4.0/5.0 compiler 
[_] Small-C compiler 

L_] Lattice C 3.1 compiler 

[_] Turbo C 1.5 compiler 


[_]Check enclosed. Make payable to M&T Books. 

Charge my: L]Visa LIM/C LJ AmEx 

Card No. Exp.Date___ 

Signature 

e FREE SHIPPING on domestic orders of 
$75 or more! 

e FREE SHIPPING on foreign orders of 
$150 or more! 
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M&T BOOKS 
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like potting instance variables in mil- 
spec black epoxy resin. You get into 
and out of the module through its ter- 
minal strip, period. C++ and Object 
Pascal do something a little more like 
blister-packaging under transparent plas- 
tic: The goodies can be seen and felt 
by the consumer, but direct manipula- 
tion is discouraged. 


Family Resemblances 

Encapsulation is a nice idea, but there’s 
nothing in it (at least in the C++/Object 
Pascal sense) that can’t be accomplished 
by traditional C implementations and 
good extended Pascals like Turbo Pas- 


cal. Code and data can be combined 
in Turbo Pascal just by placing proce- 
dural types as fields in a record along 
with data fields. This works well, and 
I’ve used it as a means of organizing 
programs in the past. 

What really sets Smalltalk and other 
true object-oriented languages apart 
from the old school is that third Small- 
talk architectural principle: Data Be- 
queaths Everything It Has To Its Chil- 
dren. This is the notion of inheritance, 
and I'd call it the single, most important 
aspect of object-oriented programming. 

Pascal has something a little like in- 
heritance. When you want to limit a 
data type to some subset of the values 
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of another type, you can define a 
subrange: 


TYPE 
CharCodes = 0..255; 


Here, we’ve defined a subrange of type 
Integer that embraces only the first 256 
integer values. Values of type CharCode, 
however, really are integers, in that 
they may take place in integer calcula- 
tions and be passed as actual parame- 
ters in formal parameters defined as 


This more-than-data 
concept in Smalltalk 
has its own name, 
and that name is 
object 


Integer. CharCode variables inherit their 
integer-ness from type Integer, while 
taking on a new characteristic specific 
to type CharCode: The limiting of val- 
ues to those between 0 and 255. 

Now, broaden this notion by an or- 
der of magnitude and you'll begin to 
get the idea. A Smalltalk object can 
have child objects that inherit every- 
thing the parent object has. Typically, 
however, child objects either add to or 
somehow modify the instance variables 
or methods of the parent objects. You 
literally write code in Smalltalk by choos- 
ing an existing object or objects as the 
foundation of your application and cre- 
ating child objects that modify the par- 
ent objects in a way that gets your 
work done. 

Where Pascal has data types, Small- 
talk has object classes, and inheritance 
works on classes rather than on indi- 
vidual objects. The real work of Small- 
talk programming lies in defining new 
classes and writing their methods. A 
new class defined on the foundation 
of an existing class is called “a sub- 
class;” the class from which a subclass 
is defined is the subclass’s “superclass.” 

A class, like a data type in Pascal, is 
a template. You create Smalltalk ob- 
jects by grabbing a class template and 
whacking out a new instance of that 
object class. That’s Pascal-think, 
though — in keeping with Smalltalk’s 
anthropomorphic metaphor, it’s more 
correct to say that new instances are 
created by sending a message to the 
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Order now by calling our toll free 
number or mail the coupon to: 


Mix Software 
1132 Commerce Drive 
Richardson, TX 75081 


1-800-333-0330 


60 Day Money Back Guarantee 
Not ope Protected | 
For technical support, please call: 
1-214-783-6001 


The C/Utilities Toolchest” 
adds over 40 powerful UNIX® 


utilities to your MS-DOS® oper- 
ating system. The result is an 
environment very similar to UNIX 
operating systems, yet 100% 
compatible with MS-DOS® 
programs and commands. 
Besides increasing your 
productivity, C/Utilities Toolchest™ 
gives you a very inexpensive way 
to learn how UNIX operating 
systems work. : 
The C/Utilities Toolchest™ 

contains three ready-to-run sets 
of tools including: 

1) Text Processing Utilities 

2) File Management Utilities 

3) An MS-DOS version of the 
UNIX Bourne 
Shell. 


Selaassias 





Turn your MS-DOS 


computer into a 
great programming 
environment... 


Utilities Toolchest 


The Text Processing utilities 
include programs like grep and sed 
for performing powerful string — 
search and edit operations within 
text files. File Management in- 
cludes programs like mv and mvdir 
for moving files or whole directories 
with simple wild-card specifications. 
The Bourne Shell includes an inter- 
active batch processing language 
for carrying out detailed operations 
with a single command. . 
~ You also receive a comprehen- 
sive 350 page manual containing 
clear descriptions of the utilities, 
and lots of example program scripts 
for use with the Bourne Shell. As 
an option, we've made the C 
source code for each set of tools 
available for use with the PowerC™, 
Turbo C®, QuickC®, and Micro- 
soft® C compilers. Even better, 
we've made it all very affordable. 


Now Only $19.95! 











| Order Coupon 0 
Name 

Stree 

City. 

State | 
Telephone 


Paying By —_- Money Order___Check 
____Visa____ MC ___ AX ___ Disc. 
Card# 
Card expires 

















Disk Size ____5'/," 3's," 

Qty. Product Price Subtotal 
——  (/Utilities Toolchest ................ $19.95|$_ 
Optional C Source Code 
___— Text Processing Utilities .......... $10.00) $_ 

____—- File Management Utilities ........ $10.00}$_ 
—— Bourne Shell oo... cesses $10.00}$____ 

Add Shipping ($5 USA, $20 Foreign) ............. $ 
Texas residents add 8% sales tax ................6.. : 
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C/Utilities Toolchest and Power C are trademarks of Mix Software. MS-DOS, QuickC and Microsoft C are registered trademarks of Microsoft. Turbo C is a registered trademark of Borland. 


UNIX is a registered trademark of AT&T. 
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(continued from page 164) 

class in question, requesting that it cre- 
ate a new instance of itself. Poof! The 
new instance happens. 

Inheritance allows a second-level struc- 
ture to be imposed on a program. Ob- 
jects themselves are structures, and ob- 
ject classes are related to one another 
within a structure-of-structures, called 
“an object class hierarchy.” A portion 
(a small portion) of the Smalltalk object 
class hierarchy is shown in Figure 1. 
At the top of the tree is the class Object. 
Everything in Smalltalk is descended 
from Object. 

One such something is Magnitude, 
including all objects that may take val- 
ues that may be equal to, greater than, 
or less than other values of a similar 
class. The children of Magnitude in- 
clude characters, numbers, times, and 
dates. 


Distributed Functionality 

This is all very handy for showing rela- 
tionships among classes, but what is 
actually handed down through the hier- 
archy? The answer is object behavior; 
primarily methods that dictate what an 
object may do. “Object behavior is dis- 
tributed throughout the object hierarchy 
at appropriate levels.” This is a subtle, 
sneaky concept that won’t necessarily 
make the lights come on until you’ve 
done some work in Smalltalk. General- 
ized behavior is defined early on in the 
hierarchy, up near the top. Objects mod- 
ify the behavior of their parent classes 
as they need to, but modifying only 
what they need to, leaving general be- 
havior intact where it is still valid. 

As an example, consider Magnitude. 
Its methods define ordering and com- 
paring functions that embrace anything 
that can be said to take on values that 


may be greater than or less than one 
another. One date or time can be greater 
than another, as can one number. The 
general behavior that all magnitudes 
can share is defined for class Magni- 
tude. Behavior specific to dates or times 
is defined within class Date and Time. 









Magnitude 
Association 
Character 
Date 
Number 
Floater 
Fraction 
Integer 
LargeNegativelnteger 
LargePositivelnteger 
Smallinteger 
Time 













Figure 1: A portion of Smalltalk/V’s 
class hierarchy 
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Asa Turbo Pascal” user, you are undoubt- 
edly aware that you will soon have the opportu- 
nity to upgrade your current version of Turbo 
Pascal. Before you upgrade, Microsoft would like 
you to consider Microsoft® QuickPascal. Once you 





When you use graphical output in your 
Pascal program, QuickPascal allows you to define 
your own coordinate system, instead of forcing 
you to work in pixels. We think this will save you 
time. If youre porting code, QuickPascal has BGI 


try it, we think compatibility. 
will like it. o so 
cause weve ickPas 
eee AN Important Message eas 
scal product a efinitions. 
eee _ tromMicrosot ae 
8 ‘To Turbo Pascal Users. [ies 
wee §=1O LUPDOFdSCal USCIS. [Rese 
as possible. line reference 
We de- : manual that 


signed every feature of QuickPascal 
with your productivity in mind. For 





includes examples you can cut and 
paste, will help you smoothly and 


starters the environment cwiches, Wedesigned — Ga0Y cvironment In aditin, the 

linking and debugging functions » every fe eature QuickPascal Advisor will be espe- 

so that it works the way you do. of QuickPascal cially valuable to you af —s 
- Our editor makes you more with your to get up to speed quickly on object 

productive because you can use up to : oriented programming. 

nine windows simultaneously. For productwity Finally, we believe QuickPascal 

large programs with multiple units, in mind. incorporates a clean, well-thought-out 


this means you can make changes in 
up to nine units at once, rather than 
keep them in your head. 

QuickPascals mouse support makes it 
faster to manipulate menus, scroll bars, windows 
and dialog boxes. It lets you quickly cut and paste 
your code between any windows. We also provide 
pre-configured keystroke emulators for today’s 
most popular editors so you dont have to waste 
time reconfiguring your keyboard to work the 
way you work best. 

When debugging multiple units, Quick 
Pascal multi-windowed environment makes 
debugging faster. It automatically opens new 
Windows as you trace into new units. This lets 
you see more of your code and keep track of pro- 
gram execution. In addition, you can debug your 
assembly language routines at the source level, 
instead of treating them like a black box. 

For those of you who want to write 286 
code, QuickPascal can generate 286-specific 
instructions such as PUSH constant, which 
optimize your code for the 286 
architecture. 





Microsoft’ 


implementation of Object Pascal. Its 
compatible with Object Pascal, the 
de facto standard on other platforms, and does not 
include extraneous language syntax which com- 
plicates the creation and use of objects without 
adding functionality. It utilizes dynamic alloca- 
tion of objects and virtual methods which are by 
far the most useful and straightforward types of 
constructs to use. 

All these features of QuickPascal simply 
make OOP easier to learn and use without sac- 
rificing functionality. We proved this to ourselves 
when we used the OOP features of QuickPascal 
to write the QuickPascal interface—over 30,000 
lines of code. If you want more information on 
QuickPascal’ object implementation, you can log 
on to the QuickPascal section of the MS* Systems 
Forum on CompuServe’ or GEnie* 

Right now, Microsoft is offering special 
introductory pricing for QuickPascal. 

So why wait to upgrade? Pick up Micro- 
soft QuickPascal and give it a try. 

We think youll find its just 
what you need. 


Customers inside the 50 United States, call (800) 426-9400. In Canada, call (416) 673-7638. Outside the U.S. and Canada, call (206) 882-8661. Microsoft, MS and the Microsoft logo are registered trademarks 
of the Microsoft Corporation. CompuServe is a registered trademark of CompuServe, Inc. GEnte is a trademark of General Electric Corporation. Turbo Pascal ts a registered trademark of Borland International, Inc. 














STRUCTURED PROGRAMMING 


(continued from page 166) 

Numeric functions such as reciprocal, 
cosine, tangent, and so on would be 
meaningless as applied to time or date 
values, so they are defined in class Num- 
ber and inherited by the different nu- 
meric classes such as Floatand Integer. 

The idea is not to duplicate any code 
needlessly. Internally, Smalltalk looks 
a lot like a threaded-code Forth system. 
Methods perform specific behavior, and 
then call parent methods to perform 
more general behavior, after which the 
parent methods call their parent meth- 
ods to perform even more general be- 
havior, and so on. As with Forth, there 
is a kernel of primitive methods written 
in assembly language upon which the 
rest of the language is built. 

There are other, even more subtle 
consequences of inheritance such as 
polymorphism, which may in fact re- 
quire a column all to itself. ’ll come 
back to inheritance again and again; it 
is the backbone of object orientation 
and has more wrinkles than a cotton 
shirt in a hot dryer. 


Talking Small 

With very little fanfare, a product called 
Methods appeared in 1985 from Jim 
Anderson’s Digitalk Inc. in L.A. Meth- 
ods was, remarkably enough, a text- 
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based implementation of Xerox’s Small- 
talk-80 specification. It may have been 
the first low-cost object-oriented lan- 
guage to ever appear on the PC, and 
not one programmer in a hundred had 
ever heard of it. 

Methods grew into graphics over- 
shoes and became Smalltalk/V a cou- 
ple of years later. (The V is a vee, not 
a five...) At $99 it remains the least 
expensive object-oriented language of 
which I am aware. (Rumor holds that 
Quick Pascal will come in at $99, but I 
have no hard information on it yet.) 
The Smalltalk/V manual is excellent, 
and I think that the product represents 
one of the best ways to come to under- 
stand object-oriented programming. It’s 
graphics-based, and the demo programs 
are very visual and lots of fun, with 
animated dogs (of which I am inordi- 
nately fond) bouncing around the 
screen in response to messages sent 
from the keyboard. 

The Smalltalk/V product is 86-ge- 
neric and runs on any DOS machine 
with CGA, EGA, VGA, or Hercules graph- 
ics. Digitalk also has a more advanced 
Smalltalk product for 286 and 386 ma- 
chines, Smalltalk/V286, which provides 
better performance and a richer feature 
set (including much more room to 
work) and sells for $199. A Mac version 


So you’re looking for reliabil- 
ity, reusability, and main- 
tainability — so you know you 
need an object-oriented lan- 
guage — and you want the very 
best. A language which will 
stand the test of time — ask 
around, you’ll hear Eiffel 
over and over again. And 
for very good reason. 
Fiffel is the 
industrial applica- 
tion of modern 
software engineer. 
ing tecHhiques. 
It offers the full 
realm of an 
advanced 


is available, and provides an intriguing 
portability path between the two hos- 
tile camps. 

The only other DOS-based Smalltalk 
that I know of is offered by ParcPlace 
Systems, a Xerox spinoff that is finally 
making some effort to put a Xerox Small- 
talk implementation in the hands of the 
DOS developer. The Smalltalk-80 De- 
velopment System runs steep ($995) 
and requires a 386. In fairness, I must 
admit that I’ve been using Smalltalk/V 
for two years and the ParcPlace prod- 
uct for only about a month, so I'll re- 
frain from detailed comparisons. The 
price alone (and I feel price is impor- 
tant) takes the ParcPlace product down 
a few notches in my esteem. It’s good, 
but it’s not a thousand dollars good. It’s 
a workstation product, ported from 
Unix, that has to stoop a little to make 
it under DOS, whereas Smalltalk/V was 
designed from the ground up to run in 
a DOS environment. 

On the other hand, for those who 
care, Smalltalk-80 is the Real Thing, 
born out of the primordial soup that 
Xerox continually cooks but rarely al- 
lows others to taste. Its adherence to 
the Smalltalk-80 books (see product 
box) is closer than that of Smalltalk/V, 
and in fact ParcPlace considers those 
books its “real” user documentation. 





\ Eiffel: The Object-Oriented 


object-oriented language and 
environment: single and multiple 
inheritance, dynamic binding, 
Static typing, genericity and more 
within a simple, easy-to-learn lan- 
guage. 

Eiffel is the only environment 
which includes reliable software 
construction techniques: assertions, 
invariants, rigorous exception han- 
dling. Well defined interfaces for 
your existing software. Robust 
libraries of reusable components 
including X-based graphics. A 
powerful CASE environment ensur- 
ing automatic recompilation, com- 
puter-aided documentation, graph- 


ical browsing of system structures. 
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(The 3-ring binder document, sold with 
the product, is reference-oriented, heav- 
ily technical, and fragmented. ) 

If you want a taste of Smalltalk, or a 
taste of OOP, pick up Smalltalk/V. It’s 
cheap and it works like a charm. The 
286 product is there if you want more 
room and more speed. I’m hoping (but 
not expecting) that ParcPlace will port 
Smalltalk-80 to Presentation Manager 
soon, at which point the price becomes 
less of an issue. Anything that manages 
the complexity of an API like PM’s is 
valuable, and for PM development Small- 
talk-80 would almost certainly be worth 
the considerable price. 


Those Legendary Smalltalk Books 

Smalltalk is an anomaly in that it had 
superb documentation on the market 
long before there was an implementa- 
tion that anyone could buy. A series of 
three books from Addison-Wesley ap- 
peared in the early 1980s, and two of 
the three are required reading for any- 
one interested in Smalltalk. The first, 
Smalltalk-80: The Language and its Im- 
plementation is the “white book” for 
Smalltalk, written by Adele Goldberg 
and David Robson. Beautiful, interest- 
ing, literate, and huge, the book de- 
fines the language and puts you ona 
sound theoretical footing. The other 


book, Smalltalk-80: The Interactive Pro- 
gramming Environment, by Adele Gold- 
berg, describes the standard Smalltalk- 
80 environment implemented com- 
pletely by the ParcPlace product and 
closely by Digitalk’s. It's about browsers 
and editors and form tools, and is es- 
sential if you intend to work in the 
language. The Goldberg/Robson text, 
on the other hand, is sufficient if you’re 
interested only in familiarizing yourself 
with the language’s principles. 

Athird book, Smalltalk-80: Bits of His- 
tory, Words of Advice, by Glenn Krasner, 
is meta-Smalltalk, that is, smalltalk about 
Smalltalk. It provides some fascinating 
history about the origins of the language, 
and liberal doses of hacker-heavy lore 
on how to bring up your very own 
implementation — which is not some- 
thing I would try to do in ten thousand 
years. The book is notable for its photo 
of the PARC NoteTaker machine, which 
was a 256K 8086-based spitting image 
of the Osborne 1, in regular use in 
1978. Xerox really did invent and throw 
away the personal computer... over 
and over and over again. 

Addison-Wesley has since published 
a few additional Smalltalk texts, but 
none of them come close to any of 
these three in quality or completeness. 
Highly recommended. 


The Downside 

There’s a lot more to say about Small- 
talk, and I’ll touch on it from time to 
time in these columns. I like the lan- 
guage a lot, and I credit it with prepar- 
ing me technically for the arrival of this 
crowd of OOP steamships that I cata- 
loged last issue. 

On the other hand, Smalltalk will 
probably never cross the line to be- 
come a mainstream language, as the 
weavers of its legend have been harp- 
ing for many years. The reason is purely 
practical: Smalltalk is by nature an in- 
terpreter, and unless everybody has the 
interpreter, the grass-roots critical mass 
of support among recreational hackers 
and part-time programmers just won't 
be there. IBM put Basic on the map by 
throwing a solid interpreter in the box 
with every machine they sold. Had they 
done that with Smalltalk, Smalltalk might 
be where Basic is today, or close. 

Unfortunately, it’s tough to write a 
Smalltalk, just as it’s fairly easy to write 
a Basic. Furthermore, Smalltalk is slug- 
gish on 8088 machines, in part because 
of its interpreted nature, but mostly 
because it is inescapably graphics- 
based. Digitalk might have done well 
to preserve their Methods product in 
dry ice for the current OOP craze as a 
text-based $49 loss-leader to get peo- 








anguage for Today and Tomorrow 


Portability on all UNIX systems 
among others. Cross-development 
via the generation of self-contained 
C packages. Easy interface with 
packages and software written in 
other languages. And incredible 
support. 

Don’t worry, you won’t be 
alone. The list of major companies 
using Eiffel is impressive: AT&T, 
Boeing, Philips, 
GTE, British 


European Distributors: $.O.L., 4, rue René Barthélémy, 92120 Montrouge France Tel. (33) 1 46 57 13 36, FAX (33) 1 46 57 01 03; 
ETNOTEAM, Via Staro 4, 20134 Milano, Italy Tel. (39) 2 2141521, FAX (39) 2 2142231 





Telecom, BNR, Sun Microsystems, 
HP, EDP, Cognos, Lawrence Liver- 
more, Tektronix, Sandia, Telecom 
Australia, Thomson, and on and on. 


Eiffel can solve your problems 
both today and tomorrow. Need 
more information? Just fill out the 
business reply card above. So what 
are you waiting for? 





THE BOOK Object-Oriented Software 
Construction, Bertrand Meyer, called a 
“tour de force” by JEEE Software. Order 
from Prentice-Hall (ISBN 013-629049-3), 
or directly from Interactive with the reply 
card above. 


THE SEMINAR Object-Oriented Design 
and Programming: created and presented by 
the designers of Eiffel. For information and 
registration, use the reply card above. 


SEE EIFFEL at all the major shows. Call 
for location and dates. 


Interactive 
Software Engineering Inc. 


VP 
270 Storke Road, Suite 7, Goleta, CA93117 USA AAR KSRY 
Telephone: (805) 685-1006 FAX: (805) 685-6869 Ren 


Eiffel is a trademark of Interactive Software Engineering Inc. 
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IMPORTANT NOTICE 


Communication Systems 
Developers rate | Programmers 


NLEASH ... 


... the true communication power of micros. 


If you program in (Microsoft® or IBM®) “C”, under DOS 
or OS/2, we have the hardware, software and technical 
support that will enable you to quickly develop and deliver 
real-time, parallel processing capability for current and 
future communication needs. 





This proven software, specifically designed for use with the 
entire family of IBM “ARTIC” co-processor cards, provides 
a truly open architecture, “C” programming environment 
that allows programmers to more easily produce customized 
applications and protocols that execute concurrently in real- 
time, from within most of today’s high-speed 80286 or 80386 
based microcomputers. 


Used together, these products make it possible to off-load 
system-resource, overhead-consuming communication tasks 
on to independent, 80186 based concurrent processors, and 
run those tasks totally unaffected by, or interacting with, 
applications running on the system unit. 


You could, for example, support real-time wide area net- 
working for your LAN based systems by embedding an open 
architecture, programmer accessible X .25 protocol (which 
runs as one of up to 253 tasks) as a part of your application. 
When off-loaded on to these co-processors, this fully imple- 
mented, level two and three protocol can run at up to 56,000 
bits per second, full duplex, and is currently certified and in 
use on the Telenet®, DDN and Datex-P networks. 


The best news is that we can deliver both the hardware and 
software today! To learn more about how we can help you 
reduce both costly communication systems development 
time and implementation costs, yet still be able to deliver the 
power of a mini at microcomputer prices, give us a call. 


Microsoft and IBM are registered trademarks of Microsott Corporation and International Business 
Machines Corporation respectively. Telenet is a trademark of Telenet Communications. 


MESA 


ITECHNOLOGY CORPORATION| CORPORATION 


Call Jerry Cutler: (800) 999-6780 or (508) 458-4100 


Columbia, MD Lowell, MA Milford, CT S. Burlington, VI Philadelphia, PA 
Morris Plains, NJ Newport News, VA. Charlotte, NC Columbia, SC 


a) An Electrocomponents Company 
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ple knowledgeable about OOPs in gen- 
eral and Smalltalk in particular. (You 
listening, Jim?) Given a $99 price and 
some superb documentation from Ad- 
dison-Wesley, Smalltalk/V is perhaps 
the best current environment to learn 
OOP principles... but to apply those 
principles broadly you’re going to have 
to move to a mass market language like 
Turbo Pascal. 

Smalltalk does well as a prototyping 
tool, rather like a thinking man’s Dan 
Bricklin for graphics apps. And if you’ve 
got a fast machine and you’re in a 
position to work entirely within the 
Smalltalk environment, you can create 
a lot of powerful tools quickly. Still, a 
mainstream language it isn’t, and I cau- 
tion those of you who have been daz- 
zled by the legend not to expect effort- 
free programming. Smalltalk is a com- 
puter language, really. Tools is tools. 
The magic, if anywhere, is in you. 


DDJ 


Vote for your favorite feature/article. 
Circle Reader Service No. 13. 


Products Mentioned 


The Smalltalk-80 Programming System 
ParcPlace Systems 

1550 Plymouth Str. 

Mountain View, CA 94043 
415-691-6700 

$995.00 (requires 386) 


Smalltalk/V 

Digitalk, Inc. 

9841 Airport Blvd. 

Los Angeles, CA 90045 
213-645-1082 

General 86-family version $99 
286/386 version $199 — 


Smalltalk-80: Bits of History, 


Words of Advice 

by Glenn Krasner 
Addison-Wesley, 1983 
ISBN 0-201-11669-3 
Softcover, 344 pp. $19.95 


Smalltalk-80: The Interactive 
Programming Environment 
by Adele Goldberg 
Addison-Wesley, 1984 

ISBN 0-201-11372-4 
Hardcover, 516 pp. $29.95 


Smalltalk-80: The Language and 

its Implementation 

by Adele Goldberg and David Robson 
Addison-Wesley, 1983 

ISBN 0-201-11371-6 

Hardcover, 714 pp. $34.95 
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Listing One (Text begins on page 146.) 
/* next vertical point */ 


/* ELLIPSE.C: Midpoint algorithm for drawing an ellipse */ ; /* update control values */ 
/* Based on Wilton’s "VIDEO SYSTEMS," pp 230-231 */ 

/* For inclusion in GRAFIX.LIB */ 

/* K. Porter, DDJ Graphics Programming Column, 8/89 */ 


#include "grafix.h" 


void far ellipse (int cx, int cy, /* center x, y End Listing One 
{ 


int x = 0, y = vert_rad; /* starting coords for curve 

long asq = (long) horiz rad * horiz_ rad; /* at2 

long a2sq = asq + asq; /* 2a%2 e448 

long bsq = (long) vert_rad * vert_rad; {® D°Z Listing Two 

long b2sq = bsq + bsq; /* 2b*2 

long d, xd, yd; /* control values Add these entries to your copy of GRAFIX.H 


int horiz_rad, int vert_rad) /* radii ("semi-axes") 


/* Initialize control values */ 
d = bsq - asq * vert_rad + asq / 4L; /* b*2 = a*2b + a°2/4 /* From August '89 */ 
OL; ;* 
a2sq * vert rad; /* 2a*2b void far ellipse /* draw ellipse 
(int: x, ant cy, /* at center x, y 
/* Loop to draw first half of quadrant */ int horiz rad, int vert rad); /* radii (semi-axes) 
while (xd < yd) { = t ’ 
draw_point (cx+x, cyty); /* set pixels in all quadrants void far arc (int xl, int yl, int x2, int y2, int xc, int yc); 
draw_point (cx-x, cyty); /* draw conic spline, where knots are at xl, yl and 
draw point (cxt+x, cy-y); /* and x2, y2, control point is at xc, yc 
draw point (cx-x, cy-y); 
if.(d > OL) { /* if nearest pixel is toward the center 
==V; /* move toward center 
d -= a2sq; /* update control values 
ao yd; ° End Listing Two 
} 
++x; /* next horiz point 
xd += b2sq; /* update control values 
d += bsq + xd; 


Listing Three 


/* Loop to draw second half of quadrant */ /* CIRCLES.C: Draws several ellipses to demo ellipse() function */ 
d += (3L * (asq-bsq) / 2L - (xdtyd)) / 2L; /* K. Porter, DDJ Graphics Programming Column, Aug "89 */ 
while (y >= 0) { /* do until y = 0 
draw point (cx+x, cyty); /* set pixels in all quadrants #include <conio.h> 
draw point (cx-x, cyty); #include "grafix.h" 
draw point (cxt+x, cy-y); 
draw point (cx-x, cy-y); void main () 
if (d < OL) { /* if nearest pixel is outside ellipse { 
++x; /* move away from center if (init video (EGA)) { 
xd += b2sq; /* update control values setcoords (-400, 300, 400, -300); 
dad += xd; 


(continued on page 172) 
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Listing Three (Listing continued, text begins on page 146.) 


/* draw a true circle in upper center of screen */ 
ellipse (dx(0), dy(100), dxunits (150), dyunits (150)); 


/* tall skinny ellipse to left */ 
set_colorl (13); /* light magenta */ 
ellipse (dx(-300), dy(0), dxunits (50), dyunits (250)); 


/* short fat ellipse lower right */ 
set_colorl (10); /* light green */ 
ellipse (dx(150), dy(-200), dxunits (200), dyunits (30)); 


/* hold for keypress, then quit */ 
getch(); 


End Listing Three 


Listing Four 


/* ARC.C: Draws a conic spline using fixed point math */ 
/* Knots are at xl, yl and x2, y2, control pt at xc, yc */ 
/* For inclusion in GRAFIX.LIB */ 

/* K. Porter, DDJ Graphics Programming Column, Aug '89 */ 


#include "grafix.h" 
#include <math.h> 
#define HALFPI 102944L /* fixed-point PI/2 */ 
void far arc (int xl, int yl, int x2, int y2, int xc, int yc) 

{ 

int i, x, y, prevx = -1, prevy = -l; 

int delta_x, delta _y, delta t, dt = 804, den = 10; 

long vx, vy, ux, uy, x0, y0; 


/* fixed-point control values for this arc */ 


vx = (long) (xc - x2) << 16; /* distance to start */ 
vy = (long) (yc - y2) << 16; 
ux = (long) (xc - xl) << 16; /* current point adjustment factor */ 
uy = (long) (yc - yl) << 16; 
x0 = ((long)xl << 16) - vx; /* center of arc */ 
yO = ((long)yl << 16) - vy; 


/* compute pixel density factor (2%den) */ 


delta_x = (labs (vx) + labs (ux)) >> 16; 
delta_y = (labs (vy) + labs (uy)) >> 16; 
delta _t = delta_x + delta _y; 


while (dt > delta t) { 
dt /= 2; 
--den; 


for (i = (int) ((HALFPI << den) >> 16); i >= 0; --i) { 
x = (int) ((x0 + vx) >> 16); /* current position */ 
y = (int) ((yO + vy) >> 16); 
if ((x != prevx) |; (y != prevy)) /* if not same as last point */ 
draw point (x, y); /* draw new point */ 
prevx = x; /* remember this position */ 
prevy = y; 
ux -= vx >> den; /* advance arc */ 
uy -= vy >> den; /* division by 2*den */ 
vx += ux >> den; 
vy += uy >> den; 
} 
} 
End Listing Four 
e e e 
Listing Five 


/* CONICS.C: Draws several conic splines and their enclosing hulls */ 
/* K. Porter, DDJ Graphics Programming Column, Aug '89 */ 


#include <conio.h> 
#include "grafix.h" 


void main () 


{ 
if (init _video (EGA)) { 


/* Fig. la */ 

set_colorl: (12);  /* red hull */ 
draw line (5, 20, 250, 20); 

draw line (50, 180, 250, 20); 
set_colorl (15); /* white curve */ 
arc (5, 20, 50, 180, 250, 20); 


/* Fig. lb */ 

set_colorl (12); /* red hull */ 
draw line (630, 20, 520, 20); 

draw line (470, 120, 520, 20); 
set_colorl (15); /* white curve */ 
arc (630, 20, 470, 120, 520, 20); 
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/* acute conic in the center */ 
set_colorl (12); 

draw line (200, 330, 370, 40); 
draw line (340, 200, 370, 40); 

set colorl (15); 

arc (200, 330, 340, 200, 370, 40); 


/* wait for keypress and quit */ 
getch(); 


End Listing Five 


Listing Six 
/* HANGER.C: Draws a coat hanger with lines and conic splines */ 


/* K. Porter, DDJ Graphics Programming Column, Aug ‘89 */ 


#include <conio.h> 
#include "grafix.h" 


void main () 


{ 
if (init _video (EGA)) { 


/* draw body of hanger */ 


draw line (320, 180, 140, 240); /* left top */ 
arc (140, 240, 140, 260, 80, 260); /* left end */ 
draw line (140, 260, 500, 260); /* bottom */ 

arc (500, 260, 500, 240, 560, 260); /* right end */ 
draw line (500, 240, 320, 180); /* right top */ 


/* draw hook at top */ 

arc (320, 180, 310, 160, 320, 168); 
arc (310, 160, 300, 140, 300, 154); 
arc (300, 140, 320, 120, 300, 120); 
arc (320, 120, 340, 140, 340, 120); 


/* wait for keypress and quit */ 


getch(); 
} 
} 
End Listing Six 
Listing Seven 
/* BALL.C: Ball throwing a shadow */ 
#include "grafix.h" 
#include <conio.h> 
void main () 
{ 
if (init_video (EGA)) { 
setcoords (-320, 240, 319, -239); 
/* Draw the backdrop in dark blue */ 
set_colorl (1); 
fill_rect (0, 0, 639, 150); 
/* Draw the floor in light blue */ 
set_colorl (9); 
fill_rect (0, 150, 639, 199); 
/* Create shadow on floor */ 
set_colorl (8); /* dark gray */ 
ellipse (dx(0), dy(-160), 160, 25); 
setfillborder (8); 
floodfill (dx(0), dy(-130)); 
/* Draw the ball */ 
set_colorl (7); /* light gray */ 
ellipse (dx(0), dy(0), dxunits (150), dyunits (150)); 
/* Shade the ball underneath */ 
arc (dx(-150), dy(0), dx(150), dy(0), dx(0), dy(-50)); 
setfillborder (7); 
floodfill (dx(0), dy(-25)); 
/* Shade the ball white on top */ 
set_colorl (15); 
floodfill (dx(0), dy (145)); 
/* Hold for keypress and quit */ 
getch(); 
} 
} 
End Listings 
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(continued from page 12) 
issue. Bruce was concerned with con- 
verting Rob Moore’s “Mapping MS- 
DOS Memory Allocation” (November, 
1988) program from Turbo C to Micro- 
soft C. I have a few suggestions that 
may help Bruce in this process. 

1. Use pragmas to pack the MCB 
structure: 


#pragma pack(1) 


struct MCB 

char chain; 
unsigned pid; 
unsigned _ psize; 
char filll[1 1); 


typedef struct MCB huge *PTRMCB; 
#pragma  pack( ) 


The first pack pragma tells the com- 
piler to perform byte alignment on any 
following structures. The second pack 
pragma tells the compiler to default 
back to word alignment. 

2. Use the FP_SEG and FP_OFF mac- 
ros found in <dos.h> instead of MK_FP: 
in Turbo C: 


/* far pointer to segment address/ 
/of first MCB * unsigned far 


*segmptr;/ 
/* get pointer to segment address 
of first MCB */ 

segmptr = MK_FP(sregs.es, 
regs.x.bx-2); 


/* get and return pointer to 
first MCB */ 
return MK_FP(*segmptr, 0); 


in Microsoft C: 


/* far pointer to segment address of 
first MCB */ 

unsigned far *segmptr; 

/* get pointer to segment address 
of first MCB */ 

FP_SEG(segmptr) = sregs.es; 

FP_OFF(segmptr) = regs.x.bx-2; 

/* get pointer to first MCB */ 

FP_SEG(segmptr) = *segmptr; 

FP_OFF(segmptr) = 0; 

/* return pointer */ 

return (segmptr); 


This may seem strange at first Cusing a 
macro on the left side on an assign- 
ment statement), but a look at the mac- 
ros themselves reveals that this is per- 
fectly legal. Recall that a far pointer is 
stored in memory as an offset followed 
by a segment. Both may be treated as 
unsigned (16-bits). Through a series 
of casts to an unsigned pointer, these 
two macros access the segment and 
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offset portions of a far pointer. 

3. If you are having problems with de- 
claring MCBPTR to be huge, (my com- 
piler kept treating it as far), then you 
may need to change the pointer arith- 
metic used in getting the next MCB 
pointer. In Turbo C: 


/* huge pointer to an MCB */ 
PTRMCB ptrmcb; 

/* get pointer to next MCB */ 
ptrmcb += ptrmcb->psize + 1; 


in Microsoft C: 


/* “huge” pointer to an MCB */ 
/* but, for some unknown reason 
(at least to me) */ 
/* it is treated as far! */ 
PTRMCB ptrmcb; 
/* temporary to hold segment ad- 
dress of MCB pointer */ 
unsigned mcbseg; 
/* get pointer to next MCB */ 
mcbseg = FP_SEG(mebptr) + mcbptr- 
2size +1; 
FP_SEG(mcbptr) = mcbseg; 


Remember, both huge and far point- 















won't like the Blue Flame II. 
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HAVING TROUBLE 
WITH YOUR DRIVES? 


Why would a leading maker of dedicated disk emulators 
recommend that each user have a hard disk? 


SemiDisk System's Blue Flame II can give you a new perception 
of your personal computer. We know about those disk-intensive 

application programs that provide certain “fringe benefits” such as 
extended coffee breaks and daily paid vacations. Thumb-twiddlers 


lf, however, the time lost to disk-intensive operations represents 
lost productivity and money, you're going to love what the Blue 


The Blue Flame II is a dedicated disk emulator. It looks to your 
computer like an additional disk drive. A drive with a big difference: 
It's extremely FAST! Our Blue Flame || models are available in 
sizes from 2 to 8 megabytes per single-slot card. Multiple cards 
can be used together to form logical drives of up to 32 megabytes 
each. Add our Battery Backup Unit and you'll have a non-volatile 
drive that can’t be beat. Call or write for benchmark data compiled 
with PC Magazine’s Benchmark tests. 


So with all this speed, size and non-volatility, why do we 
recommend a hard drive? Because even as slow as they are, they 
still make an excellent backup device. Hard drives, or even 

floppies, are also good for plugging up that big rectangular hole on 


Blue Flame II prices start below $800. Blue Flame II cards with 
capacities under 8 megabytes are field upgradable in 1 megabyte 
steps. The Battery Backup option costs $130. Call for information 
on SemiDisk products for S-100 and Epson QX-10/QX-16. 
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SemiDisk Systems, INC. 
PO. Box GG 

Beaverton, Oregon 97075 

phone: (503) 626-3104 

FAX: (503) 643-0625 
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OVERLAY DRUDGERY 
BITES THE DUST! 


Introducing Overlay Toolkit” So fast, so smart, 
SO easy it practically completes overlays for you. 





In less than 4 hours, an analyst who knew nothing of the application 
reduced its memory requirement from 377K to a performance-tuned 
217K. Here’s how: 


OVERLAY MASTER™ So long, tedium. Hello, results! You supply your 
object code, it creates a tight Plink86p/us or .RTLink response file. 


OVERLAY PROBE™ Do quick “whatif” on your designs. Pinpoint 
programs that force up memory size. 


Imagine doing overlays 90% faster. Relief for just $995, a limited time 
introductory price. 30 day money back guarantee. 


LLOYD BUSH, INC. OVERLAY TOOLKIT 


156 William Street, New York, N.Y. 10038 (212) 962-4004 
Software products since 197] 


©1989 Lloyd Bush, Inc. Overlay Toolkit, Overlay Master and Overlay Probe are registered trademarks of Lloyd Bush, Inc. 
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CAN YOUR XENIX WORKHORSE 5 
CARRY THE MULTIUSER WORKLOAD ! 


The Stallion I/O Controller is the intelligent way to add 


terminals to your multiuser AT/RT or PS2. 


¢ up to 16 serial ports PER SLOT 


¢ large terminal buffers and statistical software reduce interrupt overhead by 95% 
¢ I/O portion of the XENIX kernal is in the card, for the utmost in performance 


® on board 8 MHZ 80186 controller 


SCO Xenix 386 + 32 BIT PC + 2 Stallions = 32 satisfied users 


‘The Braegen Group Inc. 
67 Yonge St., Ste. 1100, Toronto, Ontario M5E 1J8 Canada 
(416) 366-6363 FAX (416) 366-4428 


(exclusive Canadian/Northeastern USA distributor for Anvil Designs Pty. Ltd.) 
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ers may access any location in mem- 
ory. However, when performing pointer 
arithmetic, such as the addition above, 
a far pointer only uses 16-bit math while 
a huge pointer uses 32-bit math! Since 
far and huge pointers are stored as 
offset followed by segment, one can 
see that the segment of a far pointer 
cannot be changed via simple addition! 
Of course, you may modify the seg- 
ment directly as shown above. 

4. Do not use the maximum optimi- 
zation switch /Ox. Among other things, 
the /Ox switch causes the compiler to 
disregard pointer aliasing in its optimi- 
zations. As there is a lot of work with 
pointers in this program, this may cause 
the program to behave unpredictably. 
On my computer, this results in an 
endless loop, which continually prints 
out information on the first MCB only! 

Steve Smith 
Renton, Wash. 


TUL Is Alive and Kicking 
Dear DDJ, 
Regarding Frank Little’s February letter 
referencing the long-standing Burroughs 
joint venture in India, let me note that 
Tata Unisys Limited (TUL) is alive and 
thriving. The Burroughs-Sperry merger 
has allowed us to combine operations 
in India, so that we are now a major 
information technology presence in In- 
dia. In addition, we are the second- 
largest software exporter from India 
and have an important marketing and 
manufacturing presence there as well. 

Our experience is that the joint ven- 
ture in India significantly strengthens 
our global competitiveness. TUL has 
implemented scores of newly designed, 
leading-edge applications, and not just 
conversions as Mr. Little seems to im- 
ply. Increasingly, new software devel- 
opment projects are being undertaken 
within India, thanks to improving com- 
munications and satellite links. This, 
in my view, proves once again that 
clients will ultimately care more about 
quality, timeliness, and cost, than where 
a project is performed. 

Anil Shrikhande 

Unisys Corporation 

Blue Bell, Penn. 


DDJ 


We welcome your comments (and sug- 
gestions). Mail your letters to DDJ, 501 
Galveston Dr., Redwood City, CA 94003, 
or send them electronically to Compu- 
Serve 76704,50 or via MCI Mail, c/o 
DDJ. Please include your name, city, 
and state. We reserve the right to edit 
letters. 
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A specification describing a general ap- 
proach to object-oriented software de- 
sign has been published by Interac- 
tive Development Environments 
Inc. The specification, called Object- 
Oriented Structured Design (OOSD), 
is a non-proprietary notation for de- 
sign of software systems that is language- 
independent (supporting languages 
such as C++, Eiffel, Smalltalk, Fortran, 
C, and Pascal) and synthesizes tradi- 
tional top-down design with modern 
concepts for object-oriented design into 
a comprehensive approach to model- 
ing software architecture. In addition 
to providing improved support for the 
pivotal architectural design step of the 
software development process, OOSD 
supports automated generation of code 
for multiple programming languages, 
provides partitioning of a system into 
a coherent software architecture, facili- 
tates reuse of design elements, and pro- 
vides a clear notation for communica- 
tion among designers and reviewers. 
The key building blocks in OOSD are 
modules, lasses, and monitors. Reader 
Service No. 20. 

Interactive Development 
Environments, Inc. 

595 Market St., 

12th Floor 

San Francisco, CA 94105 

415-543-0900 


Hamilton C shell, recently released by 
Hamilton Laboratories is an inter- 
active language for OS/2. The com- 
pany says that its key benefit is that it 
allows you to describe what you want 
the machine to do much more quickly 
and easily, even if what you want is 
fairly complex. Some of its features in- 
clude: Fully nestable programming con- 
structs for iteration and condition-test- 
ing; variables, arrays, and a wide range 
of expression operators and built-in func- 
tions; a powerful history mechanism 
for recalling and editing past commands; 
language constructs for I/O redirection, 
piping, background execution, and par- 
allel threading; and more. Hamilton C 
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shell complies with the Berkeley 4.3 
Unix Programmer's Manual. C shell 
requires 286- or 386-based AT or PS/2 
or compatible with a minimum of 2 
Mbyte of RAM and a 2-Mbyte hard disk. 
All executables will run properly inside 
a Presentation Manager window. The 
cost is $350. Reader Service No. 22. 
Hamilton Laboratories 

13 Old Farm Road 

Wayland, MA 01778 

508-358-5715 


VM-DEBUG (The Virtual Machine De- 
bugger), a debugging tool for PCs, XTs, 
and ATs, has been released by Wendin 
Inc. VM-DEBUG is an interpreter whose 
language is 8088 machine code ex- 
tended with the real-mode instructions 
of an 80286. It can stop the execution 
of a program at any point, examine or 
alter memory or registers, examine the 
program, and determine where the pro- 
gram has been. Unlike normal debug- 
gers, these functions are accomplished 
by a program outside the addressing 
space of the program or system under 
test, so that VM-DEBUG can never be 
altered or destroyed by an errant pro- 
gram. VM-DEBUG also has the ability 
to trace DOS itself or the ROMs, and 
set breakpoints within ROM. It retails 
for $99. Reader Service No. 23. 
Wendin, Inc. 

P.O. Box 3888 

Spokane, WA 99220-3888 
509-624-8088 


A new book that describes how assem- 
bler macros are used with the 80386 
will be released next month by Tab 
Professional and Reference Books. 
The book, entitled 80386 Macro As- 
sembler With Toolkit and written by 
Penn Brumm and Don Brumm, dis- 
cusses the Microsoft Macro Assembler 
(MASM) operands and operators, pro- 
gram structure and file control direc- 
tives, global, conditional, and macro 
directives, and interfacing MASM with 
high-level languages. The 608-page 
book retails for $25.95. Reader Service 
No. 28. 

Tab Professional and 

Reference Books 

Blue Ridge Summit, PA 17294-0850 
800-822-8138 


Lattice C 6.0, for DOS and OS/2, is now 
available from Lattice Inc. The system 
uses global optimizing technology (see 
“Optimization Technology” by Keith 
Rowe, DDJ, June, 1989 for details on 
this technology) and includes a source- 
level, native, and cross debugger and 
an integrated screen editor. The com- 
piler also supports automatic register 
variable and registerized parameter sup- 


port, built-in function support, and sup- 
port for precompiled header files. 

The system includes more than 800 
prewritten functions, multithreaded li- 
braries, DLL support, and also comes 
with special graphics, database, com- 
munications, and screen management 
libraries. 

Lattice C 6.0 runs on IBM PC/XT/AT 
and compatibles and requires DOS 2.1 
or OS/2 1.0 or later. The price for ver- 
sion 6.0 is $250, although owners of 
version 3.4 can upgrade for $75. Own- 
ers of all other versions can upgrade 
for $115. Reader Service No. 32. 
Lattice, Inc. 

2500 S Highland Ave. 
Lombard, IL 60148 
312-916-1600 


The new hardware-assisted model of 
the Periscope debugger is now avail- 
able from the Periscope Company. 
Periscope Model IV runs on 80286 and 
80386 systems with CPU speeds up to 
25MHz and zero wait states. It works 
on any PC-compatible with a standard 
AT-style bus. Periscope IV is designed 
to help software developers achieve 
optimum performance from their own 
software, and can monitor program exe- 
cution in real-time. It can track down 
memory overwrites because it does not 
slow down program execution as soft- 
ware-based debuggers do. The Peri- 
scope software provides source-level 
and symbolic support for Borland, IBM, 
Lattice, Manx, Microsoft, and other lan- 
guages. Prices range from $2195 to 
$2995. Reader Service No. 20. 

The Periscope Company 

1197 Peachtree St. 

Plaza Level 

Atlanta, GA 30361 

404-875-8080 


Microsoft Corporation has released 
a number of programming tools for the 
OS/2 Presentation Manager that com- 
plement its OS/2 language compiler 
family. At the centerpiece is the Micro- 
soft OS/2 Presentation Manager Toolkit, 
a complete “one box” answer to Pres- 
entation Manager developer’s needs, 
and it includes a collection of graphical 
tools, books, Quickhelp documenta- 
tion, sample code, and electronic sup- 
port. These components are available 
individually or in various combinations. 
Upgrade pricing available. Minimum 
system requirements are an 80286 or 
80386 processor running OS/2 1.1; 2.5 
Mbytes of user memory; a high-density 
5.25-inch, or a 3.5-inch drive; and a 
hard disk. The toolkit supports EGA 
and VGA graphics adapters and is com- 
patible with any Microsoft OS/2 lan- 

(continued on page 179) 
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MARKETPLACE 


How to place your ad in the Programmer’s Marketplace: 
Carefully type your message or send camera-ready art. Each ad is 10 x 13 picas (15/8 x 23/16 inches). All ads must be prepaid. 


. We accept checks, money orders, Visa, Mastercard, and American Express. Send your ad to: 
Programmer’s Marketplace, Dr. Dobb’s Journal, 501 Galveston Drive, Redwood City, CA 94063. 
For more information, contact: Glynn Mansfield at (415) 366-3600. 





A revolutionary 32-bit implementation of a Forth-83 
compiler, coupled with a_high-productivity 
programming environment « truly compiled code « 
context-sensitive help * source-level debugger = 
stand-alone application generation Used to develop 
the first commercial PostScript™ clone. 


-KNow.epce Basep Systems, Inc. 
276 bry ay College ¢ Station » Deseo 77840 






BBS ( (409) 696-7055 
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PC PostScript™ Version 2.0 





* Based on Gnu's Ghostscript 

¢ Re-written >50,000 lines C 

¢ 75% speed of LW+, highly tested 
* 42 high-quality fonts, 286/386 

¢ 100% compatible to v47.0A 

* Runs as TSR ports to non-80x86 
* Min 640K more RAM = more speed 
¢ Prints to dot-matrix/laser/others 

* Includes Source to Version 1.2 

* Postscript™ by Adobe Systems 

* $49.95 with V2.0 Source $299.95 


2464 El Camino Real, Suite 300 
Terra Systems Santa Clara, Ca. 95051 
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HOW TO PROTECT YOUR PROGRAMS 
WITHOUT COPY PROTECTION ! 
CODETRACK™ 


Prevents disassembly and Debug tracing. 
Hacker proof encrypted registration information. 
User must register to begin operation/Will be displayed on every execution. 
No Source code changes required. Optional: Copy Protectoion until registration. 
Track unauthorized copies back to their sources. 
Optional different usage restrictions. 
Only $195 For Unlimited Usage 
We offer the biggest choice of Software protection systems 
ANYWHERE IN THE WORLD 
Including Programable parallel and keyboard plugs 
and copy protection software. 
Call us for details of our complete products list. 
EllaShim Microcomputers, Inc. 520 W. Hgwy. 436, Suite #1180-30 
Altamonte Springs,FL 32714 Tel: (407)682-1587 FAX: (407)774-8103 
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CC-Rider 


The C Programmer's Companion 

* CCSYM analyzes ANSI C source code, generates 
commented function prototype files and a detailed sorted 
symbol log file. 

¢ Generates a "symbol database” which CCRIDER uses to 
quickly retrieve ANY symbol definition in your application. 

¢ Incremental compiliation supports efficient database updates. 

* CCRIDER converts your own editor into a powerful hypertext 
programming environment with online symbol cross- 
referencing. 

* Point at a symbol, pop-up its definition in a window, then 
instantly edit the original source file definition within your own 
editor. 

DOS $89 OS/2 $179 VISA/MC/AMEX 
WESTERN WARES * Box C « Norwood, CO 81423 
(303) 327-4898 
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QUICKGEOMETRY LIBRARY 


... IS a large collection of powerful math subroutines 

for CAD/CAM/CAE and graphics programming. It 

supports: 
LINES, ARCS, CIRCLES, ELLIPSES, NON-UNIFORM 
RATIONAL B-SPLINES WITH W/ OFFSET (NURBS); 
INTERSECTION (even splines!), DISPLAY, ROTATE, 
SCALE, TRANSLATE, MIRROR, OFFSET, BREAK, TRIM; 
ENDPOINTS, TANGENTS, CURVATURE; DXF, i/o; lists. 
IBM PC comp, MS-DOS 2+. $199 + no S&H!; Incl 
C source, manual support, 30-day guarantee. 


Building 
Block 
Software 





P.O. Box 1373 
Somerville, MA 02144 


(617) 628-5217 
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OBJECT-ORIENTED TOOLKIT 
TRIPLE your productivity with COMPLETE C™ 
The only object-oriented development utility for 
C with pre-compiler, foundation classes (source 
code included), integrated make, real-time 
debugger, Documentation Generator, 
Application Streamliner. Versions for DOS 
($449), SCO-XENIX ($495), QNX ($449) with 
full technical support. Other ports available 
upon request. 


COMPLETE COMPUTER CORPORATION 
111 West 57th St. Suite 1400 NY, NY 10019 
212-582-2635 
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68000)» 
Conditional 
HicH SPEED | Assembly 
Cross-ASSEMBLER arid 
KNOWLEDGE BASED : 
Compatible 
Systems, Inc. 
2746 Longmire 4 MB of source 
College Station code assembled 
Texas 77840 per minute 


Phone (409) 696-7979 
Fax (409) 696-7277 
BBS (409) 696-7055 
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§-Records, Binary, 
or Split Binary 
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B.S.c. DEGREE IN PROGRAMMING 


The American Insitute for Computer Sciences 
offers an in-depth correspondence course 
which allows you to earn-your Bachelor of 
Science degree in computer programming at 
home. Subjects covered are: MS/DOS, 
BASIC, PASCAL, C, Data File Processing, 
Data Structures & Operating System 
Concepts. 


AMERICAN INST. for COMPUTER SCIENCES 
1704-DJ 11th Ave. So., Birmingham AL 35205 


TOLL FREE1-800-872 AICS 
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Install your DOS Software Internationally 
as if you were there yourself, adapting to hardware, 
software, environment and installer wishes 
with Installation Toolkit Version 3.0 


You get both an installation program and a complete 
development environment for a powerful overlay script system. 
You just “fill in the blanks” to create multiple options in minutes, 
intelligently controlling AUTOEXEC, CONFIG, etc. Do new 
installation, updates, modifications and much more. 250-page 
User's Guide dedicates 45 pages to automatic handling of 
special and abnormal situations. $99. No copy protection or 
installation royalties, full 30-day money back guarantee. 


To order, call 800-448-4154. Visa, MasterCard, or via mail 
Helpful Programs, Inc. 


Central Bank Building, Suite 912 
P.O. Box 16078, Huntsville, Alabama 35802-1627 
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83,000 professional 
programmers will read 
this ad... 


And you could have advertised to 
all of them for about 1/2-cent 
each. 


Get your advertising message in 
the Programmer's Marketplace! 


Call Glynn Mansfield at 
(415) 366-3600 
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dBase BUSINESS TOOLS 


* General Ledger 

* Accounts Recvobl. 
¢ Order Entry * Job Costing 

« Sales Analysis « Job Estimating 


$99 EA. + s&h w/ dBASE 2, 3 or 3+ SOURCE CODE 


¢ Purch Ord/Invntory 
¢ Accounts Payable 








dATAMAR SYSTEMS Cr. Crd/Chk/COD 
4876-B Santa Monica Ave. 
San Diego, (A 92107 (619) 223-3344 | 








EVERTRAK SECURITY SYSTEM 


lf you HATE Copy Protection, but still want to protect 
your programs, EVERTRAK features: 

* Protect any COM/EXE w/o Source changes 

* Prevent disassembly and DEBUG tracing 

* Embed/display hacker-proof Customer information 

* Restrict use by date-range and /or media-type 

* Track unauthorized copies back to their source 

* Totally invisible to End Users 


EVERTRAK is for IBM & Compatibles, sells for $295 
with a 30 day money back guarantee. Free info & demo. 


Az-Tech Software, Inc. 
305 East Franklin 
Richmond, MO 64085 
(800) 227-0644 (816) 776-2700 
FAX (816) 776-8398 
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MARKETPLACE 


How to place your ad in the Programmer’s Marketplace: 
Carefully type your message or send camera-ready art. Each ad is 10 x 13 picas (15/8 x 23/16 inches). All ads must be prepaid. 
We accept checks, money orders, Visa, Mastercard, and American Express. Send your ad to: 
Programmer’s Marketplace, Dr. Dobb’s Journal, 501 Galveston Drive, Redwood City, CA 94063. 
For more information, contact: Glynn Mansfield at (415) 366-3600. 





CALL 
MICRO 


1214 Miramar / Houston, 
Texas 77006 / (713) 529-2335 





Best Price in America 


alo 





$3,400, i.e. 386 25MHz. 0 wait 4 Meg. RAM (80 ns.) 
expandable to 16 Meg. on board 1.2/1.4 Floppy 80 
Meg. HD (28ms.) Seagate Parallel/Serial/Clock/ 
Calendar/Monographic Card, T/S Base Monitor, W. 
Digital 1 to 1 interleave controller, Enhanced 
Keyboard 101 230W Power, 8 Expansion Slots. 
$2,185 386 20 MHz., $1,729 286 20 MHz. All 
computers come with complete hardware ready to 








run. 





CEES OO SRS OE 
Extended Batch Language 
INTEGRATE and customize your programs with 
EBL! Write powerful utilities, insulate your 
programs from novices, build custom menus 
automatically. Many power user features: floating 
point arithmetic, simulate keystrokes, if-then-else, 
and more. Money back quarantee. 
Call or write for information. $49 + $3 S/H. 
Seaware Corp. 


PO Box 1656-D 
Delray Beach, FL 33444 


800 / 634-8188 407 / 392-2046 

















CIRCLE NO. 363 ON READER SERVICE CARD 





Royalty Free Science/Engineering/Graphics Tools for C & Turbo Pascal VGA, 
EGA, Hercules & CGA, HP plotters, dot matrix & laser printers 
The Quinn-Curtis Science, Engineering and Graphics Toods are a comprehensive set 
of high performance numerical algorithms and graphics routines. These tools solve 
the most common data analysis and graphics problems encountered in science and 
engineering applications. Graphics output can be directed to a printer or HP plotter. 
Versions available for Turbo Pascal 4/5, Microsoft C 5.x, Quick C, and Turbo C 1.5 / 
2.0 for the IBM PC, AT PS/2. 
Each version $79.95. To Order: Call (617) 965-5660 or write Quinn-Curtis, 1191 
Chestnut St., Unit 2-5, Newton, MA 02164. Mastercard, Visa, COD orders accepted. 
Add $18 for shipping outside of North America. 
Features Include: Complete Pascal | ; 
al} et 

Engineering charting with linear, log p 8 A : 
plots, contour and pie charts, 3-D J = ‘ i ea 
plotting, Statistics, Multiple Regression 3 
Complex Math, Elgenvalues and 
vectors, Integration, Differential 
Equations, Root Solving, Data 


and C source, Royalty free (including 
Curve Fitting, Simultaneous Equations | 3 
Smoothing, Special Functions 





printer & plotter drivers) Science/ 
2D, 3D Fourier Analysis, Matrix Math, 








rene: UA COT oem renee 
om ret: ee Ley Ut UY arin ereemnus are 
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VIDEO GAME PROGRAMMERS 


The Leland Corporation, a Southern 
California based video game manufacturer 
(including Super Off-Road, Quarterback, 
Double Play, et. al.) has openings for 
experienced assembly language program- 
mers. Game experienced desired; 6502 
experience preferred. Send resume with 


salary requirements to : 
Software Manager 
1841 Friendship Drive 
El Cajon, CA 9202 or 
Call Medo Moreno at 
(619) 562-7000 











L 
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Well designed, attractively priced. °83 Standard 
* 1Mb plus automated memory management 


¢ On-line documentation, ASCII/block file 
* Many powerful and useful features 





* Other products: windows, modules, profiler 
¢ IBM PC/XT/AT and all compatibles 


Write or Call for Free Diskette 


Druma Inc. 
6448 Highway 290E, E103, - Austin, Texas 78723 
Orders: (512) 323-0403 BBoard: 512-323-2402 
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FORTRAN PROGRAMMER? 


Now you can call 2-D and 3-D graphics 
routines within your FORTRAN program. 


GRAFMATIC: screen routines $135. 
PLOTMATIC: plotter driver $135. 
PRINTMATIC: print driver $135. 


For the IBM PC, XT, AT & compatibles. We 
support a variety of compilers, graphics bds., 
plotters and printers. 


MICROCOMPATIBLES 
301 Prelude Drive, Silver Springs, MD 20901 USA 
(301) 593-0683 
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EVERLOCK COPY PROTECTION 

Designed for user-transparency, compatibility and 
strength. EVERLOCK features: 

* No need for damaged media or I/O plugs 

* Thwarts all Bit-copy Software 

* Install to Floppy, Hard Disk, or Network 

* Control program use by Date or #Executes 

* Remotely reset Installs, Date or #Executes 

EVERLOCK is for IBM and compatibles, $195 
Starter Kit or $495 with NO meter counts. Free info 
& demo disk. 

Az-Tech Software, Inc. 

305 East Franklin Richmond, MO 64085 

(800) 227-0644 (816) 776-2700 

FAX (816) 776-8398 











CIRCLE NO. 370 ON READER SERVICE CARD 


Dr. Dobb’s Journal, August 1989 


f 


CIRCLE NO. 369 ON READER SERVICE CARD 


OpT-TECH SORT/MERGE 


Extremely fast Sort/Merge/Select 
utility. Run as an MS-DOS command 
or CALL as a subroutine. Supports 
most languages and filetypes includ- 
ing Btrieve and dBase. Unlimited 
filesizes, multiple keys and much 
more! MS-DOS $149. 


(702) 588-3737 


Opt-Tech Data Processing 
P.O. Box 678 - Zephyr Cove, NV 89448 
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Complete C Source Code—No Royalties! 


Simple Screen Definition * Windows 
Pop-up Menus x Context-Sensitive Help 
Lots of low-level functions 


Introductory Price: $69.95 


Plus $5.00 shipping ($10.00 outside US) 
CA residents please add sales tax 


Business Computer Services 

1800 S. Robertson Blvd., Suite 206 
Los Angeles, CA 90035 

VISA/MC orders: (213) 836-5026 


Demo disk available—$10.00 
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STOP SOFTWARE 
PIRACY 


With our Copy Protection Products. They 
really work and don't burden the honest user.. 


For Hardware Based Security (Parallel Port) 
e STANDARD KEY TAG Unlimited Runs 
¢ COUPON KEY TAG Limited Runs 
e DURATION KEY TAG Limited (days) 


For Disk Security 
High Level Security 
e PADLOCK II DISK ¢ 
e SAFEGUARD DISKS 


COUPON DISKS 


For Hard Disk Protection 
¢ HDCOPY 
Low Level Security - User Installable Protection 
e PC-PADLOCK 


The market is filled with copy protection pro- 
ducts which burden the user or simply don't 
work. we have over 3500 satisfied software 
firms utilizing our systems. The high-level 
fingerprint has not required an update in over 
3 years. 

Why should your valuable data or useful 
software program become available in the 
Public Domain? 


Call or Write for 
more information. 


GLENCO 
ENGINEERING INC. 


SERVING THE SOFTWARE INDUSTRY SINCE 1979 
721 W. Algonquin Rd. (312) 364-SOFT (7638) 
Arlington Hts., IL 60005 FAX 364-7698 Telex 493-7109 
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[MARKETPLACE 


The SPINDRIFT Library 


At Last!! Now there's a way for the FORTRAN programmers to do the things 
they have always wanted to do: Execute other programs via CALL EXEC; 
direct control of the cursor with edit keys; WINDOWS on the screen for POP 
UP HELPs; (*) and (?) wildcard file searches, save/restore screen images; 
COLOR screens. 


EGAD 


Screen Print package for VGA, EGA, and 
CGA displays. Print color text and 
graphics in color on color printers; color 
graphics in gray tones on monochrome 
printers. Select any rectangular region of 
the screen and print it, enlarged up to 4 
times. Supports Epson, Star NX-1000 
Color, Xerox 4020, and other printers. 
$25.00 postpaid. Call/Write for catalog. 


TAB DIVIDERS FOR 
TECHNICAL DOCUMENTATION 


Give your software manuals a more 
professional look with custom indexing 
from Avery Specialty Products. 
Custom tab dividers make instruction 


These are just a few of the features of the SPINDRIFT Library. Over 150 


subroutines and functions in all, the SPINDRIFT Library includes DOS 
Interface (COPY, ERASE, MKDIR, FINDFILE, SYSTEM, etc), Variable 
Length Strings, Security Routines, Date/Time Routines. 10 SORT Routines, 
and much more! 


Price $149 plus shipping/handling 


Write for a DEMO DISK $5.00 credited toward purchase. 
Specify your FORTRAN Compiler 


Spindrift Laboratories, Ltd. 
116 South Harvard Avenue 
Arlington Heights, Illinois 60005 

(312) 255- 


manuals as concise, organized and 
individual as the information within. 
For more information 


Call 312-253-1010 x504 


SPECIALTY PRODUCTS 
1601 Rohlwing Rd. 


Rolling Meadows, IL 60008 


LINDLEY SYSTEMS 4257 Berwick Place, 


Woodbridge, VA 22192 (703) 590-8890 6909 





CIRCLE NO. 373 ON READER SERVICE CARD _—_—s CIRCLE NO. 374 ON READER SERVICE CARD CIRCLE NO. 375 ON READER SERVICE CARD 


Why you want BATCOM! 
BATCOM is a yoatch file compiler that compiles 
your ".bat” files to ".exe” files to make them faster, 
more professional, and more capable. BATCOM 
extends DOS with new commands so you can 
read keyboard input, perform arithmetic, use sub- 





Give Your Programs AccSys to Paradox 












BASIC to C or dBASEIV Files 


BAS_C v3.2 accepts BASICA, Quick BASIC v3, AccSys libraries offer Microsoft/Turbo C or 
CBASIC86, or other different BASICs by adding QuickBASIC file-handling functions to create and 
new statements, functions (Customizer), generates manage files in dBASEIV or Paradox format. 


structured, indented, scoped C, MS/Turbo/Lattice/ . 
Aztec C. All memory model, compile option are Specify language and AccSys for Paradox or 








supported. C source code (Runtime Library) is AccSys for dBASEIV when ordering. Source routines, and much more. In addition, BATCOM 
included. Run on MSDOS, XENIX, UNIX. 95% available. Fast, flexible, money-back guarantee. protects your source code, and you can distribute 
conversion ratio. Demo disk. From $199. $395.00 sane ea Pe a without royalties. For 
Copia International, Ltd. ° aera 
GOTOLESS CONVERSIONS P 1964 Richton Dr. 7 \, Wenham Software Company 
7 Prion eds Wheaton, IL 60187 tT e | 5 Burley St. 
ichardson 
(312) 682-8898 \ Z Wenham, Ma. 01984 
(214) 404-1404 (312) 665-9841 Fax 7a 








(508) 774-7036 
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ROGRAMMERS °'800-228-3736 | ~ oatewreo 
anada 800-344-2: | Actor 495 399 379 
A pneee es Rv Check mk. ob 8 
Ll os -SUPPORT 
L_] ASSEMBLERS [_] DEBUGGERS) Pe i aie oS oe 


MS Macro Assembler 150 97 
Turbo Assembler/Debugger 150 98 a3 oo 175 129 109 C OTHER PRODUCTS ia 
L_] BASIC & ADDONS summmmmmm Periscope Ill 1395 1069 999 COmESSON 8 178 


MS Quick BASIC 4.5 99 67 64 Soft Probe Il/TX 395 269 239 HEADROOM by Helix 95 Save 


QuickPak Professional 149 109 99 ae Link & Locate 350 249 
L DEVELOPMENT TOOLS Norton Utilities Advanced 150 79 


[J C LANGUAGE- COMPILERS mgm Clear+ for C 150 143 139 PC Tools Deluxe 80 45 
Lattice C - 3.4 250 156 143 el te: ae: ae Remote2 195 104 
attice U - 3. PolyMake 149 129 123 


Microsoft C 5.1 PVCS Professional 395 339 309 [-] SPREADSHEETS sues 


Microsoft Quick C 
imo Py onan EDITORS ses Le oe ee. 








eae RamceseE tN eae eanimemmae ae ae "ae ops Multiplan 195 139 129 
MS COBOL 3.0 900 599 569 KEDIT ies aoe ane Quattro 248 164 159 


Realia COBOL 995 799 769 SPF/PC 245 169 144 SuperCalc V 495 319 299 


L_] DATABASE MANAGEMENT mm Vedit+ 18 109 99 [| ] TEXT SCREENS ADDONSsammm 


Clarion 695 399 379 FILE ADDON Rt oe eee C Worthy w/Forms 295 Save Save 
D the data language 395 339 289 LJ FIL ISAM ONS Greenleaf DataWindows 295 179 159 


Magic PC 299 259 229 Vermont Views 395 319 299 


Paradox 3.0 725 489 479 c-tree by Faircom [] WORD PROCESSING 
L_] DBASE spiel Sprint 200 134 129 
Clipper Summer '87 695 429 419 WordPerfect 495 239 234 


dBASE IV 795 489 479 FORTRAN es Wordstar 495 259 249 
|] DBASE TOOLS sas RMFORTRAN 595 409 389 
OOLS Over l ,000 


Clear+ for dBASE 200 149 139 [|_| GRAPHIC ADDONS =_—_—_ 
dBRIEF w/BRIEF 275 Save Save GSS Development Toolkit 620 459 429 popular products! 


dSalvage ~ — 100 8 # £79 Halo '88 395 256 238 
R&R Relational Reportwriter 149° 99 = 93 Hoops 495 389 369 Prices subject to change without notice. 


20 Fort Street, Quincy, Massachusetts 02169 ~- Hours: M-F 8:30-5 EST WE PAY FOR DELAY: CALL FOR DETAILS. 
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(continued from page 175) 

guage compiler. The complete Presen- 
tation Manager Toolkit is $500. Up- 
grade pricing is $200 for registered own- 
ers of the OS/2 Programmer’s Toolkit. 
Reader Service No. 24. 

Microsoft Corporation 

16011 NE 36th Way 

Box 97017 

Redmond, WA 98073-9717 
206-882-8080 


Microsoft Corporation has updated 
its Fortran compiler with the recent 
release of the MS Fortran Optimizing 
Compiler, Version 5.0, which supports 
DOS and OS/2 1.1 with Presentation 
Manager. The company claims that For- 
tran 5.0 offers the broadest VAX and 
IBM VS Fortran compiler syntax avail- 
able on a PC, supporting virtually all 
VAX Fortran syntax other than VAX 
operating system calls. Fortran 5.0 comes 
with a graphics library, the CodeView 
source-level debugger, the MS Editor, 
LINK, NMake, LIB, and OS/2 support 
and extended syntax. Minimum system 
requirements are a PC with 320K of 
available user memory and DOS 3.0 or 
OS/2 1.1. The suggested retail price for 
Fortran 5.0 is $450, although registered 
owners of MS Fortran 4.1 who bought 
the compiler after April 1, 1989, can 


upgrade for free. Other 4.1 registered 
owners can upgrade for $100, 4.0 own- 
ers for $150, and $250 for owners of 
earlier versions. Reader Service No. 27. 
Microsoft Corporation 

16011 NE 36th Way 

Box 97017 

Redmond, WA 98073-9717 
206-882-8080 


A protocol specification called the Vir- 
tual Control Program Interface (VCPD, 
which is designed to prevent conflicts 
between 386 software from different 
companies, has been sanctioned by a 
number of different hardware and soft- 
ware companies. Originally sponsored 
by Phar Lap Software Inc., VCPI ad- 
dresses technical issues between con- 
trol programs and DOS extenders that 
arise due to the nature of the 386. These 
conflicts include CPU mode switching, 
hardware interrupt processing, and the 
sharing of extended memory. Left 
unresolved, these conflicts force the 
user to turn off control programs in 
order to run an extended application. 
The agreement of a programming stan- 
dard allows the new categories of soft- 
ware brought on by 380 PCs to play 
together. In addition to Phar Lap, other 
sponsors of the VCPI specification are 
Quarterdeck, Auadram, Lotus, A.I. Ar- 


chitects, Qualitas, and Rational Systems. 
The new VCPI specification will be 
available on June 1, 1989, at no cost 
through Phar Lap Software. Reader Ser- 
vice No. 29. 

Phar Lap Software, Inc. 

60 Aberdeen Ave. 

Cambridge, MA 02138 

617-661-1510 


Clear Software Inc. has recently in- 
troduced Clear+ for C, a product that 
helps developers understand C code. 
It is designed to instantly produce high- 
quality system documentation and to 
clarify the logic of C programs and 
applications. According to Sandy Rudy, 
who designed the language portions 
of the program, “‘Clear+ acts like a com- 
piler but the output doesn’t run, it shows 
[on the screen].” Clear President Yadim 
Yasinovsky went on to tell DDjJ that 
“Clear+ is ideal in an environment when 
you inherit someone else’s code.” 
Clear reads the source code of any 
C application and instantly produces 
the system tree chart, function flow 
charts, formatted source listings, func- 
tion cross references, and prototype 
files. As flow charts and tree charts are 
output to a printer, screen, or a file, the 
program automatically calculates the 
spacing, number of pages (or screens) 





SERIOUS PROGRAMMERS 
LOOK FOR THE 


PROGRAMMIEIR'S 


TurboGeomet 


A Library of 2D and 3D Geometric Routines 


-Plus 


1 





POWIEIR IPACIK 


Over 300 2D & 3D geometric routines. Includes all the 
routines in TurboGeometry Library plus ® Surfacing ® 
Solids @ Additional Hide Line Algorithms ¢ Spherical 
Geometry @ 3D Clipping © and more. Easy to use 
manual. 30 day guarantee. $199.95 or $299.95 with 
source. Foreign Orders $225.00 or $325.00 with source. 
Shipping & Handling included. 


TurboGeometry Library 3.0 


NEW VERSION, 3.0 Over 200 routines covering ® Inter- 
sections @ Volumes @ Areas ® Transforms ® Perspec- 
tives © Decomposition ® Tangents ® Clipping ® and 
more. Easy to use manual, 30 day guarantee. $149.95 or 
$199.95 with source. Foreign Orders $175.00 or $225.00 
with source. Shipping and Handling included. 

Both products available in Turbo Pascal, Turbo C, Microsoft 
C or Turbo Pascal Macintosh. Need MS/PC DOS 2.0+, IBM PC 
or Compatible, Macintosh. Visa/MC, PO or Chk on a USA Bank. 


Disk 


2116 E, Arapaho Rd. Software, 
Suite 487 
Richardson, TX 75081 
USA 


.. the key to finding their programs and 


utilities that they need to get 
ahead in their work. 


PROGRAMMER'S POWER PACK 
is the one card deck that no serious 
programmer can live without... 
and it's free! 


Look for the 
PRORAMMER'S POWER PACK 
in your mailbox...it's coming soon! 


214-423-7288 
214-423-4465 FAX 
V1C. 800-635-7760 
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required, and the placement of sym- 
bols for the flow chart. And diagrams 
look exactly the same on screen as 
they do in print. Clear also features 
powerful hardcopy controls, various 
graphics options, and options to di- 
rectly invoke a text editor or compiler 
of the user’s choice. Clear can analyze 
C source code as is or after it has been 
preprocessed with either an external 
or internal preprocessor. 

Clear has been designed for use with 
any IBM PC/XT/AT or compatible and 
supports Hercules, CGA, EGA, VGA, 
most dot-matrix printers, and HP Laser- 
Jet+ printer. Minimum RAM require- 
ment is 512K. Clear currently supports 
Microsoft C, QuickC, Turbo C, and any 
generic C compiler. Clear+ for C retails 
for $199.95 plus $5.00 for shipping and 
handling. Clear+ for dBase is also avail- 
able for the same price. A combination 
package (Clear+ for C and Clear+ for 
dBase) is sold for $310.00 plus $10.00 
for shipping and handling. Reader Ser- 
wide INO. SI: 

Clear Software, Inc. 

637 Washington St., Ste. 105 
Brookline, MA 02146 
617-232-4720 


The QuickC family has grown with Mi- 


crosoft Corporation’s introduction of 


the QuickC Compiler with QuickAs- 
sembler 2.01. This package is an inte- 
grated C-and-assembler environment 
which includes an integrated editor, 
compiler, and debugger. The C portion 
of the compiler has not changed from 
QuickC 2.0. The assembler portion con- 
sists of a macro-assembler add-in mod- 
ule built around MASM 5.1, which fea- 
tures single-pass assembly technology. 

Additionally, the package provides 
incremental compiling/linking and re- 
compiles/reassembles and relinks only 
modules that have been changed since 
the previous compilation. The debug- 
ger can be used to debug both assem- 
bler and mixed-language programs. The 
package is supported by an on-line 
reference system in addition to books 
and manuals. 

System requirements are MS-DOS 2.1 
or higher and 512K of RAM; a mouse 
is optional. The QuickC compiler and 
QuickAssembler package sells for $199 
although registered QuickC Compiler 
2.0 owners can buy the assembler add- 
in module directly from Microsoft for 
$75. Reader Service No. 33. 

Microsoft Corp 

16011 NE 36th Way 

Box 97017 

Redmond, WA 98073-9717 
206-882-8080 


A page makeup system that supports 
C compilers is now available through 
Quality Software. The system, called 
FutureComp Laserline, is a MS-DOS ver- 
sion of the company’s FutureComp Page 
Makeup Environment which is primar- 
ily designed to produce custom page 
makeup programs for directories, cata- 
logues, parts lists, technical manuals, 
and similar applications. 

The Laserline version of FutureComp 
can output to most printers and type- 
setters that support PCL or PostScript. 
(The Proline version of the system 
supports high-resolution typesetters 
like those from Mergenthaler and Auto- 
logic.) 

In addition to font handling and hy- 
phenation dictionary utilities, Future- 
Comp provides C functions for com- 
posing blocks of text, placing illustra- 
tions and tables, and for positioning 
these blocks anyway on a page. Users 
can also construct logical fonts for spe- 
cial applications. 

The system supports any compiler 
that can call ANSI C functions, and 
applications programs created with Fu- 
tureComp can be recompiled on any 
computer system that supports C. The 
system runs on any IBM PC/XT/AT us- 
ing DOS 2.0 or higher; Microsoft C 5.1 
is also required. FutureComp sells for 


ild Your Own Bootable Demos 


S/H $3.00 


Operating Systems With — 


Outside U.S. 
add $10.00 


AT LAST! 


YOU CAN STEP BACK AND TAKE 
ALOOK AT YOUR CODE : 


FLOW CHART AND ANALYZE 
YOUR ASSEMBLY LANGUAGE 
SOURCE CODE 

¢ Flow Charts 

¢ Tree Diagrams 

¢ Stack Sizing 

¢ Register Analysis 

¢ CPU Timing Analysis 

¢ Procedural X-Reference 

¢ 8088/87 to 80386/387 : 

¢ Context-Sensitive Help “break_current_line 

* Menu/Batch/Command ae eee 
line Operation E display_warning 

- MASM 5.1 Compatible a. 


SOFTWARE | 


insert_blank_line 
adjust_line 
join_line 
19855 Stevens Creek Blvd, Suite 154 
, CA 95014 
(408) 244-6826 — Free Demo 


“< not Space 
JNE / 


delete _edit_line 
editor_line_out 
edit_line_out 


editor_warning 
adjust_line 


VISA-MC  30- Day Money Back Guarantee 
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BOOTER TOOLKIT 


The software construction set that lets you 
develop bootable systems for the IBM PC, XT, 
AT, and true compatibles. 


Six exciting source modules provide over 50 


essential API function calls for bootable C and 
assembly language programs: 


ose: «FAT File System! (c source) — 
| © QS/2-Style Threads (masm) 

. Multitasking Windows (masm) 
«Memory Manager (masm) — 

- « Boot Record (masm) 
- + General BIOS Functions (masm) 
"es + 1003 page developer’ s manual 


For past toll-free ordering, FREE SHIPPING 
to most states, and a FREE BOOTABLE DEMO 
diskette while supplies last, call: 


PROGRAMMER’S CONNECTION 


(800) 336-1166 
List Price: $249 
GENERAL 
SOFTWARE... 


Box 2571, Redmond, WA 98037 Copyright (C) 1989 General Software 
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C Why dBASE 








Build a multi-user, _— 
85K, dBASE com- a . 
patible application Walt 
using pulldown menus, = > 
popup windows, and > 
data entry from 
pick lists. 


Portable 
When you are done, 
port your application 
to Unix, Microsoft 
Windows and OS/2 
without modifying a 
single line of code. 
Then watch as your 
application runs many 
times faster than corre- 
sponding dBASE, Clipper 
or Foxbase programs. 
Finally, you can keep 
all the profits after you 
have distributed unlimited 
numbers of your executable 
programs royalty free. 


Compatible 
Code Base 4 lets you access 
and modify the data, index 
and memo files of dBASE 
Ill, dBASE IV, or Clipper. 
Consquently, you can take 
advantage of dBASE com- 
patible tools such as R&R 
Relational Report Writer. 
Switch between Turbo C, 
Quick C, and Microsoft C. 
Take advantage of integrated 






development 


ae 
; ue 
asia 





"environments, sophisticated 


debuggers, and programs 
which compile and link 
in seconds. 

Learn Code Base 4 by 
consulting the comprehensive 
206 page user’s guide while 
interactively executing Code 
Base 4 routines from a 
learning utility. Then try 
example programs from the 
diskettes or the user’s guide. 
You will easily remember the 
Code Base 4 routines which 
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correspond directly 
to familiar dBASE 


commands. 


Source Included 

As you become an 
expert Code Base 4 
user, you will find 
yourself examining the 
source code as you read 
about the internal 
operating principles 
of Code Base 4. 

Enjoy the benefits of 
complete dBASE func- 
tionality, including data 
entry, windows, menus, 
multiple index files per 
database, dBASE 
expression evaluation, 

fields, filters, relations, 
reindexing, and editing. 


Order Today 

Order Code Base 4 at $295 
and you will soon know why 
Sequiter Software Inc. and 
most software dealers are 
happy to give a 30 day 
money back guarantee!! 


Call (403) 439-8171 
Fax (403) 433-7460 


SEQUITER {| 
SOFTWARE INC. 

P.O. Box 5659, Station L 
Edmonton, Alberta 
Canada T6C 4G1 
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$695 and includes PostScript and HP 
PCL translators. Reader Service No. 34. 
Quality Software 

60 Lewis St. 

Newton, MA 02158 

617-965-2231 


As C portability tools become increas- 
ingly important, new ones continue to 
pop up, the most recent being Abraxas 
Software’s CodeCheck. What this pack- 
age does is analyze C source code in 
terms of its portability between PC- 
DOS, OS/2, Macintosh, Unix, and VMS. 
“In essence, CodeCheck is an expert 





OASYS Solves the 
Development Puzzle 
Every Piece is in Place 


68030 


with 68881 and 68851 Support 


system that looks at the code and tells 
if it is portable or not,” Abraxas presi- 
dent Patrick Conley told DD/. During 
set-up, the system loads a set of rules 
for a particular platform (DOS, OS/2, 
Mac, and so on), then checks the code 
against those rules. It then identifies 
any code that is not portable to or from 
any environment, including C++ and 
ANSI C. It also quantifies code main- 
tainability with user-defined measures 
at all levels and identifies unacceptable 
style or usage. 

CodeCheck supports all C compilers 
from major vendors and requires 512K 
of memory. It sells for $295 and Conley 


* 












Oasys offers the complete development solution 


Fast, Highly Optimized and Available 





% Compilers 


% Macro Assembler/Linkers 


% Simulators 


68030 /20 /00 Development Tools with 68881 and 68851 Support 


% Multi-Window Cross Debugger 
¢© Ce C++ © Pascal © FORTRAN 


% Performance Analysis Tools 
% Language-Sensitive Editors 


% Real-Time Operating Systems % Communications/Downloading 











Utilities 






Plus over 120 other software development tools including: 
¢ Other Complete Tool-Kits: 


— 80386 
— Microsoft Cross C for 8086/286 


¢ C++: Object-Oriented C ++ Tool-Kit: 
— Designer C ++ 


— C++ Class Libraries for User Interface 


Development 
— X-Windows/MS Windows support 
— Language Sensitive Editor 

(C ++/EMACS) 


TOOL-KITS 

AVAILABLE FOR: OASYS SERVICES: 
VAX/VMS/ULTRIX ¢ New ports easily 

SUN arranged 

APOLLO 

GOULD ¢ OEM, site and corporate 
IBM PC licensing 

IBM RT 

... MANY MORE ~ ® Training available 


Let us help you solve your puzzle 


230 Second Avenue, Waltham, MA 02154 (617) 890-7889 
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said it would be shipping in mid-August. 
Reader Service No. 35. 

Abraxas Software, Inc. 

7033 SW Macadam Ave. 

Portland, OR 7219 

503-244-5253 


HCR Corporation has introduced the 
packaged version of an advanced Unix 
C++ compiler based on C++, Release 
2.0, from AT&T. HCR/C++ provides all 
of the key features of C++, such as type 
safe linkages, default membership in- 
itialization, and the ability of each class 
to define its own operators. It will run 
on most 386-based systems. HCR’s db- 
Xtra, based on dbx Version 3 from 
Berkeley 4.3 BSD Unix, adds the ability 
to operate through windows, permit- 
ting users to review their output and 
source code easily, even on standard 
terminals. HCR/C++ allows direct de- 
bugging of C++ and window access to 
the translated C source code. All C++ 
code is translated into C before execu- 
tion so programmers can apply dbXtra 
to examine either C or C++ code dur- 
ing debugging. 

Initial copies will be available at an 
introductory price of $499 (50 percent 
off the list price of $995). HCR’s stan- 
dard support and upgrade options are 
available; each user of HCR/C++, Ver- 
sion 1, also will have the option to 
upgrade to Version 2 for a delivered 
price of $99. Reader Service No. 36. 
HCR Corporation 
130 Bloor Street West 
Toronto, Ontario, Canada 
M5S 1N5 
416-922-1937 


Quibus Enterprises has updated its 
Fortran Development Tools package, 
which is designed to help Fortran 
programmers maintain their code. Re- 
lease 2 of the package automatically 
deals with poorly formatted or heavily 
modified code using a pretty printer 
that indents, renumbers, and generally 
cleans up the code. The program also 
converts GOTOs to structured IF-THEN- 
ELSE blocks. 

A preprocessor for supporting con- 
ditional compilation and code sharing 
is included, along with a utility to ex- 
tract subroutines from source files. All 
tools accept Fortran 77 plus extensions 
from VMS, Lahey, Microsoft Fortran. 
The tools run on IBM PC/XT/AT com- 
patibles with 512K of memory and sell 
for $129. Reader Service No. 37. 
Quibus Enterprises, Inc. 

106 N. Draper Ave. 
Champaign, IL 61821 
217-356-8876 
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BUY WITH CONFIDENCE... 


When we started Programmer’s Connection in 1984, we 
dedicated ourselves to providing the highest level of 
quality service possible. As a result, we’ve become the 
world’s leading independent dealer of software tools for 
IBM personal computers. We invite you to call us today 
and experience our quality and integrity for yourself. 


NO EXTRA CHARGES. UPS Ground shipping to the lower 
48 states is FREE (express services are also available at low 
economical prices). We don’t charge extra for credit cards, 
POs, CODs, sales tax (except Ohio), or rush orders. Com- 
pare that to other dealers who routinely add sizable extra 
charges to what they claim are "low competitive prices’. 


INFORMATIVE BUYER’S GUIDE. The CONNECTION, 
our FREE comprehensive Buyer’s Guide and Catalog, con- 
tains prices and up-to-date descriptions of over 860 
products by more than 330 manufacturers. Each description 
includes major product features, special requirements, ver- 
sion numbers, diskette sizes, return policies, and other 
information. Plus there are interesting articles by leaders in 
the programming industry, New Product Spotlights, ‘lech- 
nical Questions & Answers, and much more. 

To Get Your FREE Copy: 1)use the reader service card 
provided by this journal; 2)mail us a card or letter with your 
name and address; or 3)use one of our convenient toll-free 
telephone numbers. 
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> WAPNE S FLAMES 


Unbundled Integration 


manda Hixson was one of the more savvy writers we relied upon to review software back in 
A the early 1980s when I was an editor at InfoWorld. We knew we could count on her to hold 

software to high standards, to evaluate it from the user’s viewpoint, and to get quickly to the 
essence of what was right or wrong with the product. When, years later, she went to work for 
Apple, I wondered if it was the right move; writers should write, I thought. 

Over the years, Hixson demonstrated to the satisfaction of any observer that her decision was a 
savvy one, working her way up to a position reporting to Randy Battat, the VP of Product Marketing. 
Early this year she acquired a new title, when she presented Battat with the idea that the Macintosh 
System Software should be marketed. It wasn’t a difficult sale; although Apple doesn’t have to sell 
System Software on its own, the company understands that it’s the System Software that sells the 
little gray toasters. Battat agreed that it was a good idea, but pleaded that he had no time. “I do,” 
she said, and he made her Product Marketing Manager for System Software. The first big step Apple 
has taken in marketing its System Software was the press day at the May Developers’ Conference, 
when Apple spelled out which of the rumored new features were in fact going into the next major 
system release. The announcements, along with other announcements coming out of the Developers’ 
Conference, are worthy of note to anyone remotely considering developing a Mac product but not 
already in on all the former secrets. 

Some of the features Apple will be folding into System Version 7.0 are obvious and have obvious 
developer consequences. The virtual memory and 32-bit addressing, if cleanly implemented, should 
be beneficial for everybody. The nice feature of VM for users is the ability to buy memory for 
average need, rather than for maximum need. Of course, System Version 7.0 will require a minimum 
of 2 Mbytes of memory. The outline fonts and layout manager, giving Apple real device- 
independent typographic-quality text, will be very interesting for applications that can make 
effective use of it. And the database access mechanism looks interesting. 

But I found the InterApplication Communications architecture (IAC) the most intriguing. 

The IAC gives the developer a choice of ways to get information from one application to another. 
Beyond the existing Clipboard for copying and pasting text and pictures, there will be a Live 
Copy/Paste facility that programmers can incorporate into new applications. It uses a publish/ 
subscribe model: The user of one application selects some data in a spreadsheet he’s working on 
(for example) and “publishes” it. Another user can “subscribe” to the published data, which brings 
it into the word-processing document he’s working on (for example), and the data will change in 
the subscriber's document whenever the publisher changes the original. Apple is providing 
developers with a toolbox and user-interface guidelines for implementing Live Copy/Paste. 

Then there are the Event Manager extensions. Because the Mac system is event-driven, extending 
the Event Manager is a logical way to allow inter-application communication: Just let one 
application message another. The trick is that the other application has to be able to recognize the 
message, and that requires some guidance from Apple. What Apple is providing is a protocol of 
standard messages for inter-application communication: Generic spreadsheet messages, for example, 
that only need some conforming spreadsheet program (not necessarily Excel) to be on the receiving end. 

The low-level Program-to-Program Communication mechanism (PPC) is the tool the higher-level 
components use to get their jobs done; it’s also the tool a developer would use to develop more 
subtle inter-application links than the higher-level tools allow. It also permits desk accessories, 
control panels, and other chunks of code to communicate. 

Not too long ago, a lot of people put their money and time into integrated software packages: 
Omnibus programs that melded spreadsheet, text, graphic, and other kinds of processing. 
Unfortunately, not enough of these people were customers. One theory about the failure of 
integrated software is that it was the bundling, not the integration, that didn’t work. If this theory 
is accurate, then users would love it if they could pick the applications they wanted to use and 
know that they would work together as tightly as the components of one of the integrated packages. 
Or more tightly. 

That’s what Apple has in mind; there was a lot of talk at the conference about not reinventing 
the wheel, about having an application signal another application when it needs something done 


outside its area of specialization. I’d like to see that. 
t 


Michael Swaine 
editor-at-large 
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NOW YOUR SOFTWARE 
CAN TEST ITSELF. 
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our customers expect software that works. 
All the time. The key to software quality is 
exhaustive testing. It’s also an engineer’s 
worst nightmare. But it doesn’t have to be. 
Because now you can automate your soft- 
ware testing. 

Introducing the Atron Evaluator. The first and 
only non-intrusive automated PC-based software 
testing tool. 

The Atron Evaluator automatically runs your soft- 
ware regression testing programs. All of them. All 
day. All night. Giving you thoroughly tested, higher 
quality software. 

The Atron Evaluator is hardware-based. And since 
it’s non-intrusive, software behavior is tested with- 
out the risk of alteration. Once your tests have run, 
you can refer to automatically generated test reports 
to double-check test results. 

The Atron Evaluator saves time. And time makes 
you money. Development cycles are shortened, so 
your software gets to market sooner. And while your 
test programs are running, you can be more produc- 
tive. Start a new project. Or go home. 

For more information about the Atron Evaluator, 
call us at 1-800-283-5933. And put an end to your 
worst nightmares. Automatically. 


In Europe, contact: 
Elverex Limited, Enterprise House 
A Division of CADRE Technologies Plassey Technology Park, Limerick, Ireland 
Phone: 061-338177 
Saratoga Office Center QA Training Limited, Cecily Hill Castle 
12950 Saratoga Avenue Cirencester, Gloucestershire, GL7 2EF, England 
Saratoga, California 95070 Phone: (0285) 5888 
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PC WEEK POLL: SOFTWARE DEBUGGERS 












Codeview 2.2 
(Microsoft Corp.) 


“Borland’s s Debugger 0 — Codeview, 


” PC Week, May 15, 1989. 










It's two winners in one. 


Turbo C; the core of Turbo C Call (800) 345-2888* and we'll 
Professional, was the outright winner in send you both PC Week polls and tech- 
PC Week's Poll of Corporate Satisfaction nical specifications on Turbo C and 


on C compilers. Overall, Borland won Turbo Debugger. 
with 81. Microsoft’ placed second. 
Turbo Debugger,’ also included in Turbo C 
Turbo C Professional, was the outright Professional 
winner in EVERY category in PC Week's includes both 
Poll Of Corporate Satisfaction on Turbo C 2.0 and 
Debuggers. And, once again, we topped Turbo 
- the score with 84 overall. Microsoft Assembler® & 
came 1n second- best, 11 points behind. Debugger. ous 


Get Borland’s Turbo C 
Professional and get the best of both 


worlds: our top-rated C compiler and our BORL AWN D 
top-rated Debugger. 


C de: MC17 *From Canada, Call (408) 848-4391. Reprinted from PC Week, May 8, 1989; PC Week, May 15, 1989. Copyright ©1989 Ziff Communications Company. Turbo C, Turbo Debugger, and 
ode. Turbo Assembler are registered trademarks of Borland International. Copyright ©1989 Borland International, Inc. All rights reserved. BI 1328 
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